2 ! PR 70068 - used to allocate too much memory
3 ! Original test cases by Gerhard Steinmetz
6 character(3), parameter :: x(3) = ['abc', 'ijk', 'xyz']
8 character(99), parameter :: x2(2) = ' '
9 character(99), parameter :: y2
=x(2)(99:1)
10 y
= [(x(i
)(i
:1), i
=2,3)]
11 if (any(y
/= '')) stop 1