diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/recursive_reference_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/recursive_reference_1.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/recursive_reference_1.f90 b/gcc/testsuite/gfortran.dg/recursive_reference_1.f90 index 3ca6bcb1711..d810d8a6a45 100644 --- a/gcc/testsuite/gfortran.dg/recursive_reference_1.f90 +++ b/gcc/testsuite/gfortran.dg/recursive_reference_1.f90 @@ -8,9 +8,9 @@ ! Based on PR testcase by Nicolas Bock <nicolasbock@gmail.com> ! program test - if (original_stuff(1) .ne. 5) call abort () - if (scalar_stuff(-4) .ne. 10) call abort () - if (any (array_stuff((/-19,-30/)) .ne. (/25,25/))) call abort () + if (original_stuff(1) .ne. 5) STOP 1 + if (scalar_stuff(-4) .ne. 10) STOP 2 + if (any (array_stuff((/-19,-30/)) .ne. (/25,25/))) STOP 3 contains recursive function original_stuff(n) integer :: original_stuff |