19 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Ensure proper formatting of component initializers in PDTs;3! they should be unparsed from their parse trees.4module m5 type :: t(k)6 integer, kind :: k7 real(kind=k) :: x = real(0., kind=k)8 end type9end module10 11!Expect: m.mod12!module m13!type::t(k)14!integer(4),kind::k15!real(int(int(k,kind=4),kind=8))::x=real(0., kind=k)16!end type17!intrinsic::real18!end19