18 lines
413 B
Fortran
18 lines
413 B
Fortran
! RUN: %python %S/test_modfile.py %s %flang_fc1
|
|
! Ensure proper formatting of component initializers in PDTs;
|
|
! they should be unparsed from their parse trees.
|
|
module m
|
|
type :: t(k)
|
|
integer, kind :: k
|
|
real(kind=k) :: x = real(0., kind=k)
|
|
end type
|
|
end module
|
|
|
|
!Expect: m.mod
|
|
!module m
|
|
!type::t(k)
|
|
!integer(4),kind::k
|
|
!real(int(int(k,kind=4),kind=8))::x=real(0., kind=k)
|
|
!end type
|
|
!intrinsic::real
|
|
!end
|