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