diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pointer_array_9.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_array_9.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/pointer_array_9.f90 b/gcc/testsuite/gfortran.dg/pointer_array_9.f90 index a54a2b54f21..4c0336ef361 100644 --- a/gcc/testsuite/gfortran.dg/pointer_array_9.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_array_9.f90 @@ -17,7 +17,7 @@ contains a = reshape ([cmplx(1, 1), cmplx(2, 2), cmplx(1, 2), cmplx(2, 1)], [2,2]) else b = transpose(a) - if (merge("PASSED", "FAILED", all (transpose (a) .eq. b)) .eq. "FAILED") call abort + if (merge("PASSED", "FAILED", all (transpose (a) .eq. b)) .eq. "FAILED") STOP 1 end if end subroutine s end program r187 |