[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / Inputs / modfile09-b.f90
blob69c88064f6677cdd153267e65b72da4369d46b85
1 submodule(m) s1
2 integer s1_x
3 end
5 !Expect: m-s1.mod
6 !submodule(m) s1
7 !integer(4)::s1_x
8 !end