diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/typebound_call_1.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_call_1.f03 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/typebound_call_1.f03 b/gcc/testsuite/gfortran.dg/typebound_call_1.f03 index 4e7797bdf52..20688635ff4 100644 --- a/gcc/testsuite/gfortran.dg/typebound_call_1.f03 +++ b/gcc/testsuite/gfortran.dg/typebound_call_1.f03 @@ -69,17 +69,17 @@ CONTAINS INTEGER :: x IF (adder%func (2, 3) /= 5 .OR. muler%func (2, 3) /= 6) THEN - CALL abort () + STOP 1 END IF CALL adder%sub (2, 3, x) IF (x /= 5) THEN - CALL abort () + STOP 2 END IF CALL muler%sub (2, 3, x) IF (x /= 6) THEN - CALL abort () + STOP 3 END IF ! Check procedures without arguments. |