diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90 index 32c3c82dc67..c1b2149bb71 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_2.f90 @@ -22,7 +22,7 @@ x(2) = a ((/1, 2, 3, 4/) + 10) forall (j = 1:2, i = 1:4, x(j)%i(i) > 2 + (j-1)*10) x(j)%i(i) = j*4-i if (any ((/((x(i)%i(j), j = 1,4), i = 1,2)/) .ne. & - (/1, 2, 1, 0, 11, 12, 5, 4/))) call abort () + (/1, 2, 1, 0, 11, 12, 5, 4/))) STOP 1 y(1) = b ((/x(1),x(2)/)) y(2) = b ((/x(2),x(1)/)) @@ -30,13 +30,13 @@ y(k)%at(j)%i(i) = j*4-i+k end forall if (any ((/(((y(k)%at(i)%i(j), j = 1,4), i = 1,2), k = 1,2)/) .ne. & - (/4,3,2,1,11,12,6,5,11,12,3,2,9,8,7,6/))) call abort () + (/4,3,2,1,11,12,6,5,11,12,3,2,9,8,7,6/))) STOP 2 ! Now simple assignments in WHERE. where (y(1)%at(1)%i > 2) y(1)%at(1)%i = 0 if (any( (/(((y(k)%at(i)%i(j), j = 1,4), i = 1,2), k = 1,2)/) .ne. & - (/0,0,2,1,11,12,6,5,11,12,3,2,9,8,7,6/))) call abort () + (/0,0,2,1,11,12,6,5,11,12,3,2,9,8,7,6/))) STOP 3 ! Check that temporaries and full array alloctable component assignments ! are correctly handled in FORALL. @@ -46,6 +46,6 @@ forall (i=1:2) y(i) = y(3-i) ! This needs a temporary. forall (i=1:2) z(i) = y(i) if (any ((/(((z(k)%at(i)%i(j), j = 1,4), i = 1,1), k = 1,2)/) .ne. & - (/(/5,6,7,8/),(/1,2,3,4/)/))) call abort () + (/(/5,6,7,8/),(/1,2,3,4/)/))) STOP 4 end |