2 ! Test the fix for PR40551 in which the assignment
3 ! was not dealing correctly with non-contiguous lhs
4 ! references; eg. a(1,:)
6 ! Reported by by Maciej Zwierzycki
7 ! at http://gcc.gnu.org/ml/fortran/2009-06/msg00254.html
8 ! and by Tobias Burnus <burnus@gcc.gnu.org> on Bugzilla
13 if (any (reshape (a
, [4]) /= [1, -42, 2, -42])) call abort
16 if (any (reshape (a
, [4]) /= [-42, 1, -42, 2])) call abort
19 if (any (reshape (a
, [4]) /= [1, 2, -42, -42])) call abort
22 if (any (reshape (a
, [4]) /= [-42, -42, 1, 2])) call abort