diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pointer_array_component_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_array_component_2.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/pointer_array_component_2.f90 b/gcc/testsuite/gfortran.dg/pointer_array_component_2.f90 index bde66f67e5a..2eefd0ccbb9 100644 --- a/gcc/testsuite/gfortran.dg/pointer_array_component_2.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_array_component_2.f90 @@ -38,6 +38,6 @@ end do ! These lines would segfault. - if (int (sum (z%s(1)%x)) .ne. 3) call abort - if (int (sum (z%s(1)%x * z%s(2)%x)) .ne. 10) call abort + if (int (sum (z%s(1)%x)) .ne. 3) STOP 1 + if (int (sum (z%s(1)%x * z%s(2)%x)) .ne. 10) STOP 2 end |