1! RUN: %S/test_modfile.sh %s %t %f18
2module m
3  character(2), parameter :: prefix = 'c_'
4  integer, bind(c, name='c_a') :: a
5  procedure(sub), bind(c, name=prefix//'b'), pointer :: b
6  type, bind(c) :: t
7    real :: c
8  end type
9  real :: d
10  external :: d
11  bind(c, name='dd') :: d
12  real :: e
13  bind(c, name='ee') :: e
14  external :: e
15  bind(c, name='ff') :: f
16  real :: f
17  external :: f
18contains
19  subroutine sub() bind(c, name='sub')
20  end
21end
22
23!Expect: m.mod
24!module m
25!  character(2_4,1),parameter::prefix="c_"
26!  integer(4),bind(c, name="c_a")::a
27!  procedure(sub),bind(c, name="c_b"),pointer::b
28!  type,bind(c)::t
29!    real(4)::c
30!  end type
31!  procedure(real(4)),bind(c, name="dd")::d
32!  procedure(real(4)),bind(c, name="ee")::e
33!  procedure(real(4)),bind(c, name="ff")::f
34!contains
35!  subroutine sub() bind(c, name="sub")
36!  end
37!end
38