diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/args.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/args.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 index 263c795ed70..994fdd57851 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/args.f90 @@ -3,7 +3,7 @@ subroutine test (a, b) integer, intent (IN) :: a integer, intent (OUT) :: b - if (a .ne. 42) call abort + if (a .ne. 42) STOP 1 b = 43 end subroutine @@ -15,8 +15,8 @@ program args i = 42 j = 0 CALL test (i, j) - if (i .ne. 42) call abort - if (j .ne. 43) call abort + if (i .ne. 42) STOP 2 + if (j .ne. 43) STOP 3 i = 41 CALL test (i + 1, j) end program |