diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/extends_4.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/extends_4.f03 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/extends_4.f03 b/gcc/testsuite/gfortran.dg/extends_4.f03 index a0c91fd1984..32c508b3328 100644 --- a/gcc/testsuite/gfortran.dg/extends_4.f03 +++ b/gcc/testsuite/gfortran.dg/extends_4.f03 @@ -24,8 +24,8 @@ contains end function subroutine check_b (arg) type(b) :: arg - if (any (arg%x /= [10.0, 20.0])) call abort - if (arg%i /= 1) call abort + if (any (arg%x /= [10.0, 20.0])) STOP 1 + if (arg%i /= 1) STOP 2 end subroutine end module mymod @@ -41,7 +41,7 @@ end module mymod type(d) :: q p = f (x = [1.0, 2.0], if = 3) - if (any (p%e%x /= [1.0, 2.0])) call abort + if (any (p%e%x /= [1.0, 2.0])) STOP 3 q%b = set_b () call check_b (q%b) |