diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/import.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/import.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/import.f90 b/gcc/testsuite/gfortran.dg/import.f90 index 1934a2c49a7..4830eccc87d 100644 --- a/gcc/testsuite/gfortran.dg/import.f90 +++ b/gcc/testsuite/gfortran.dg/import.f90 @@ -8,7 +8,7 @@ subroutine test(x) integer :: i end type myType3 type(myType3) :: x - if(x%i /= 7) call abort() + if(x%i /= 7) STOP 1 x%i = 1 end subroutine test @@ -20,8 +20,8 @@ subroutine bar(x,y) end type myType type(myType) :: x integer(8) :: y - if(y /= 8) call abort() - if(x%i /= 2) call abort() + if(y /= 8) STOP 2 + if(x%i /= 2) STOP 3 x%i = 5 y = 42 end subroutine bar @@ -70,8 +70,8 @@ program foo y%i = 2 i8 = 8 call bar(y,i8) - if(y%i /= 5 .or. i8/= 42) call abort() + if(y%i /= 5 .or. i8/= 42) STOP 4 z%i = 7 call test(z) - if(z%i /= 1) call abort() + if(z%i /= 1) STOP 5 end program foo |