forked from OSchip/llvm-project
36 lines
603 B
Fortran
36 lines
603 B
Fortran
! RUN: %python %S/test_modfile.py %s %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
|