[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / modfile48.f90
blobd3f20f08292e7315236b63f5adc487e41ce3c14b
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
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