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