1! RUN: %S/test_modfile.sh %s %t %flang_fc1
2! REQUIRES: shell
3module m
4  logical b
5  bind(C) :: /cb2/
6  common //t
7  common /cb/ x(2:10) /cb2/a,b,c
8  common /cb/ y,z
9  common w
10  common u,v
11  complex w
12  dimension b(4,4)
13  bind(C, name="CB") /cb/
14  common /b/ cb
15end
16
17!Expect: m.mod
18!module m
19!  logical(4)::b(1_8:4_8,1_8:4_8)
20!  real(4)::t
21!  real(4)::x(2_8:10_8)
22!  real(4)::a
23!  real(4)::c
24!  real(4)::y
25!  real(4)::z
26!  real(4)::u
27!  real(4)::v
28!  complex(4)::w
29!  real(4)::cb
30!  common/cb/x,y,z
31!  bind(c, name="CB")::/cb/
32!  common/cb2/a,b,c
33!  bind(c, name="cb2")::/cb2/
34!  common/b/cb
35!  common//t,w,u,v
36!end
37