1! RUN: %python %S/test_modfile.py %s %flang_fc1 2! Ensure proper formatting of component initializers in PDTs; 3! they should be unparsed from their parse trees. 4module m 5 type :: t(k) 6 integer, kind :: k 7 real(kind=k) :: x = real(0., kind=k) 8 end type 9end module 10 11!Expect: m.mod 12!module m 13!type::t(k) 14!integer(4),kind::k 15!real(int(int(k,kind=4),kind=8))::x=real(0., kind=k) 16!end type 17!intrinsic::real 18!end 19