On Sat, Mar 24, 2018 at 01:46:43PM +0100, Thomas Koenig wrote: > program p > integer :: i > character(3), parameter :: x(3) = ['abc', 'ijk', 'xyz'] > character(3) :: y(2) > character(99), parameter :: x2(2) = ' ' > character(99), parameter :: y2=x(2)(99:1) > y = [(x(i)(i:1), i=2,3)] > if (any(y /= '')) call abort
stop 1 > if (y2 /= '') call abort stop 2 > end Jerry already OK the patch. it you have committed yet, you might want to update the test. -- Steve
