forked from OSchip/llvm-project
21 lines
320 B
Fortran
21 lines
320 B
Fortran
! RUN: %S/test_modfile.sh %s %t %f18
|
|
module m
|
|
implicit complex(8)(z)
|
|
real :: x
|
|
namelist /nl1/ x, y
|
|
namelist /nl2/ y, x
|
|
namelist /nl1/ i, z
|
|
complex(8) :: z
|
|
real :: y
|
|
end
|
|
|
|
!Expect: m.mod
|
|
!module m
|
|
! real(4)::x
|
|
! integer(4)::i
|
|
! complex(8)::z
|
|
! real(4)::y
|
|
! namelist/nl1/x,y,i,z
|
|
! namelist/nl2/y,x
|
|
!end
|