diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_to_type_3.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/class_to_type_3.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_to_type_3.f03 b/gcc/testsuite/gfortran.dg/class_to_type_3.f03 index 2d7a823ff85..2db2be82e23 100644 --- a/gcc/testsuite/gfortran.dg/class_to_type_3.f03 +++ b/gcc/testsuite/gfortran.dg/class_to_type_3.f03 @@ -23,7 +23,7 @@ contains allocate (cm) cm%i = 77 tm = cm - if (tm%i .ne. cm%i) call abort + if (tm%i .ne. cm%i) STOP 1 end subroutine subroutine comment2 @@ -36,6 +36,6 @@ contains type is (child) cm2%mother=cm end select - if (cm2%i .ne. cm%i) call abort + if (cm2%i .ne. cm%i) STOP 2 end subroutine end program |