4 ! -fwhole-file flag added for PR fortran/44945
6 ! This test the fix of PR19107, where character array actual
7 ! arguments in derived type constructors caused an ICE.
8 ! It also checks that the scalar counterparts are OK.
9 ! Contributed by Paul Thomas pault@gcc.gnu.org
16 TYPE (dt
), DIMENSION(:), ALLOCATABLE
, SAVE :: c
18 program char_array_structure_constructor
21 if ((any (c
%a
/= "wxyz")) .OR
. &
22 (any (c
%b(1) /= "abcd")) .OR
. &
23 (any (c
%b(2) /= "efgh"))) STOP 1
27 ALLOCATE (c(n
), STAT
=IALLOC_FLAG
)
29 c (i
) = dt ("wxyz",(/"abcd","efgh"/))
32 END program char_array_structure_constructor