diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/unlimited_polymorphic_18.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unlimited_polymorphic_18.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_18.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_18.f90 index 345fa6203c4..532ae6d3c03 100644 --- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_18.f90 +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_18.f90 @@ -21,10 +21,10 @@ contains select type (X) type is (real) if ( abs (X - this%expectedScalar) > 0.0001 ) then - call abort() + STOP 1 end if class default - call abort () + STOP 2 end select end subroutine FCheck |