blob: 87fdc9b831daa69c0c16251ac2b61f395963cfee [file] [log] [blame]
! 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