41 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12 3! Test modfiles for entities with initialization4module m5 integer, parameter :: k8 = 86 integer(8), parameter :: k4 = k8/27 integer, parameter :: k1 = 18 integer(k8), parameter :: i = 2_k89 real :: r = 2.0_k410 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 t15 integer :: a = 12316 type(t), pointer :: b => null()17 end type18 type(t), parameter :: x = t(456)19 type(t), parameter :: y = t(789, null())20end21 22!Expect: m.mod23!module m24! integer(4),parameter::k8=8_425! integer(8),parameter::k4=4_826! integer(4),parameter::k1=1_427! integer(8),parameter::i=2_828! real(4)::r29! character(10_4,1)::c30! 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::t34! integer(4)::a=123_435! type(t),pointer::b=>NULL()36! end type37! intrinsic::null38! type(t),parameter::x=t(a=456_4,b=NULL())39! type(t),parameter::y=t(a=789_4,b=NULL())40!end41