1 ! Program to test initialization expressions involving subobjects
10 type (SS
), dimension(2) :: o
13 type (SS
), parameter :: s
= SS (1, 2)
14 type (TT
), parameter :: t
= TT(42, (/ SS(3, 4), SS(8, 9) /))
16 integer, parameter :: a(2) = (/5, 10/)
17 integer, parameter :: d1
= s
%i
18 integer, parameter :: d2
= a(2)
19 integer, parameter :: d4
= t
%o(2)%j
21 integer q1
, q2
, q3
, q4
22 common /c1
/q1(d1
), q2(d2
), q3(a(1)), q4(d4
) ! legal