summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/recursive_stack.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gfortran.dg/recursive_stack.f90')
-rw-r--r--gcc/testsuite/gfortran.dg/recursive_stack.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/recursive_stack.f90 b/gcc/testsuite/gfortran.dg/recursive_stack.f90
index c555c0d9f99..dcd63b672f2 100644
--- a/gcc/testsuite/gfortran.dg/recursive_stack.f90
+++ b/gcc/testsuite/gfortran.dg/recursive_stack.f90
@@ -10,7 +10,7 @@ subroutine foo (recurse)
if (recurse) then
iarray(49,49) = 17
call bar
- if (iarray(49,49) .ne. 17) call abort
+ if (iarray(49,49) .ne. 17) STOP 1
else
iarray(49,49) = 21
end if