diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/alloc_comp_assign_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_assign_3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_3.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_3.f90 index 5be6bd99091..486d4b3d6e6 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_3.f90 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_3.f90 @@ -25,12 +25,12 @@ y(2) = y(1) forall (j=1:2,k=1:4, y(1)%at(j)%i(k) .ne. y(2)%at(j)%i(k)) & y(1)%at(j)%i(k) = 999 - if (any ((/((y(1)%at(j)%i(k), k=1,4),j=1,2)/) .eq. 999)) call abort () + if (any ((/((y(1)%at(j)%i(k), k=1,4),j=1,2)/) .eq. 999)) STOP 1 z = y forall (i=1:2,j=1:2,k=1:4, z(i)%at(j)%i(k) .ne. y(i)%at(j)%i(k)) & z(i)%at(j)%i(k) = 999 - if (any ((/(((z(i)%at(j)%i(k), k=1,4),j=1,2),i=1,2)/) .eq. 999)) call abort () + if (any ((/(((z(i)%at(j)%i(k), k=1,4),j=1,2),i=1,2)/) .eq. 999)) STOP 2 end |