gcc/testsuite/gfortran.dg/recursive_stack.f90

   1 ! { dg-do run }
   2 ! { dg-options "-frecursive" }
   3 program recursive_stack
   4   call foo (.true.)
   5 end program recursive_stack
   6
   7 subroutine foo (recurse)
   8   logical recurse
   9   integer iarray(100,100)
  10   if (recurse) then
  11      iarray(49,49) = 17
  12      call bar
  13      if (iarray(49,49) .ne. 17) call abort
  14   else
  15      iarray(49,49) = 21
  16   end if
  17 end subroutine foo
  18
  19 subroutine bar
  20   call foo (.false.)
  21 end subroutine bar