diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/array_memset_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_memset_2.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/array_memset_2.f90 b/gcc/testsuite/gfortran.dg/array_memset_2.f90 index 125b5685464..06f33653d7d 100644 --- a/gcc/testsuite/gfortran.dg/array_memset_2.f90 +++ b/gcc/testsuite/gfortran.dg/array_memset_2.f90 @@ -25,11 +25,11 @@ program test d(:,1) = 0. ! This can't be otimized to a memset. call bar(e) - if (any(a /= reshape((/ 0.0, 1.0, 0.0, 1.0/), shape(a)))) call abort - if (any(b /= 0.)) call abort - if (any(c /= 0.)) call abort - if (any(d /= reshape((/ 0.0, 0.0, 1.0, 1.0/), shape(d)))) call abort - if (any(e /= reshape((/ 0.0, 1.0, 0.0, 1.0/), shape(e)))) call abort + if (any(a /= reshape((/ 0.0, 1.0, 0.0, 1.0/), shape(a)))) STOP 1 + if (any(b /= 0.)) STOP 2 + if (any(c /= 0.)) STOP 3 + if (any(d /= reshape((/ 0.0, 0.0, 1.0, 1.0/), shape(d)))) STOP 4 + if (any(e /= reshape((/ 0.0, 1.0, 0.0, 1.0/), shape(e)))) STOP 5 end program |