1! RUN: %S/test_modfile.sh %s %t %flang_fc1 2! REQUIRES: shell 3! Test modfiles for entities with initialization 4module m 5 integer, parameter :: k8 = 8 6 integer(8), parameter :: k4 = k8/2 7 integer, parameter :: k1 = 1 8 integer(k8), parameter :: i = 2_k8 9 real :: r = 2.0_k4 10 character(10, kind=k1) :: c = k1_"asdf" 11 character(10), parameter :: c2 = k1_"qwer" 12 complex*16, parameter :: z = (1.0_k8, 2.0_k8) 13 complex*16, parameter :: zn = (-1.0_k8, 2.0_k8) 14 type t 15 integer :: a = 123 16 type(t), pointer :: b => null() 17 end type 18 type(t), parameter :: x = t(456) 19 type(t), parameter :: y = t(789, null()) 20end 21 22!Expect: m.mod 23!module m 24! integer(4),parameter::k8=8_4 25! integer(8),parameter::k4=4_8 26! integer(4),parameter::k1=1_4 27! integer(8),parameter::i=2_8 28! real(4)::r 29! character(10_4,1)::c 30! character(10_4,1),parameter::c2="qwer " 31! complex(8),parameter::z=(1._8,2._8) 32! complex(8),parameter::zn=(-1._8,2._8) 33! type::t 34! integer(4)::a=123_4 35! type(t),pointer::b=>NULL() 36! end type 37! intrinsic::null 38! type(t),parameter::x=t(a=456_4,b=NULL()) 39! type(t),parameter::y=t(a=789_4,b=NULL()) 40!end 41