diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/entry_14.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/entry_14.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/entry_14.f90 b/gcc/testsuite/gfortran.dg/entry_14.f90 index dfed19549f7..6c6af74b81f 100644 --- a/gcc/testsuite/gfortran.dg/entry_14.f90 +++ b/gcc/testsuite/gfortran.dg/entry_14.f90 @@ -77,25 +77,25 @@ contains subroutine test1() use m1 implicit none - if(func(3) /= 12) call abort() - if(abs(ent(7) + 14.0) > tiny(1.0)) call abort() + if(func(3) /= 12) STOP 1 + if(abs(ent(7) + 14.0) > tiny(1.0)) STOP 2 end subroutine test1 subroutine test2() use m2 implicit none - if(func(9) /= 72) call abort() - if(abs(ent(11) + 44.0) > tiny(1.0)) call abort() + if(func(9) /= 72) STOP 3 + if(abs(ent(11) + 44.0) > tiny(1.0)) STOP 4 end subroutine test2 subroutine test3() use m3 implicit none - if(func(13) /= 156) call abort() - if(abs(ent(17) + 102.0) > tiny(1.0)) call abort() + if(func(13) /= 156) STOP 5 + if(abs(ent(17) + 102.0) > tiny(1.0)) STOP 6 end subroutine test3 subroutine test4() use m4 implicit none - if(func(23) /= 368) call abort() - if(abs(ent(27) + 216.0) > tiny(1.0)) call abort() + if(func(23) /= 368) STOP 7 + if(abs(ent(27) + 216.0) > tiny(1.0)) STOP 8 end subroutine test4 end program main |