4 ! Check simplifications for initialization of DT parameter arrays
10 type(t
), parameter :: a(4) = t(1)
11 type(t
), parameter :: d(*) = a
12 type(t
), parameter :: b(2,2) = reshape(d
, [2,2])
13 integer, parameter :: nn
= b(2,2)% n
17 type(u
), parameter :: x(2,3) = u('ab')
18 type(u
), parameter :: y(*,*) = transpose (x
)
19 character(*), parameter :: c
= y(3,2)% c
20 integer, parameter :: lc
= c
% len
21 integer, parameter :: lyc
= len (y(3,2)% c
)
22 ! integer, parameter :: lxc = x(1,1)% c% len ! fails (pr101735?)
24 if (lc
/= 3 .or
. lyc
/= 3 .or
. c
/= "ab ") stop 2
