flang/test/Semantics/modfile48.f90

   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.
   4 module m
   5   type :: t(k)
   6     integer, kind :: k
   7     real(kind=k) :: x = real(0., kind=k)
   8   end type
   9 end 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