diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 index 7174fa878ca..d7cffea5c29 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/entry_3.f90 @@ -1,16 +1,16 @@ subroutine f1 (n, *, i) integer n, i - if (i .ne. 42) call abort () + if (i .ne. 42) STOP 1 entry e1 (n, *) if (n .eq. 1) return 1 if (n .eq. 2) return return entry e2 (n, i, *, *, *) - if (i .ne. 46) call abort () + if (i .ne. 46) STOP 2 if (n .ge. 4) return return n entry e3 (n, i) - if ((i .ne. 48) .or. (n .ne. 61)) call abort () + if ((i .ne. 48) .or. (n .ne. 61)) STOP 3 end subroutine program alt_return @@ -18,22 +18,22 @@ call f1 (1, *10, 42) 20 continue - call abort () + STOP 4 10 continue call f1 (2, *20, 42) call f1 (3, *20, 42) call e1 (2, *20) call e1 (1, *30) - call abort () + STOP 5 30 continue call e2 (1, 46, *40, *20, *20) - call abort () + STOP 6 40 continue call e2 (2, 46, *20, *50, *20) - call abort () + STOP 7 50 continue call e2 (3, 46, *20, *20, *60) - call abort () + STOP 8 60 continue call e2 (4, 46, *20, *20, *20) call e3 (61, 48) |