diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/array_function_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_function_1.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/array_function_1.f90 b/gcc/testsuite/gfortran.dg/array_function_1.f90 index 281ae88b852..34f363495d3 100644 --- a/gcc/testsuite/gfortran.dg/array_function_1.f90 +++ b/gcc/testsuite/gfortran.dg/array_function_1.f90 @@ -8,16 +8,16 @@ program array_function_1 a = (/ 1, 2, 3, 4, 5 /) b = f(a(l:u) - 2) - if (b /= 0) call abort + if (b /= 0) STOP 1 b = f(a(4:2) - 2) - if (b /= 0) call abort + if (b /= 0) STOP 2 b = f(a(u:l) - 2) - if (b /= 3) call abort + if (b /= 3) STOP 3 b = f(a(2:4) - 2) - if (b /= 3) call abort + if (b /= 3) STOP 4 contains integer function f(x) |