! 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 |