22 lines
405 B
Fortran
22 lines
405 B
Fortran
! { dg-do run }
|
|
! { dg-options "-frecursive" }
|
|
program recursive_stack
|
|
call foo (.true.)
|
|
end program recursive_stack
|
|
|
|
subroutine foo (recurse)
|
|
logical recurse
|
|
integer iarray(100,100)
|
|
if (recurse) then
|
|
iarray(49,49) = 17
|
|
call bar
|
|
if (iarray(49,49) .ne. 17) call abort
|
|
else
|
|
iarray(49,49) = 21
|
|
end if
|
|
end subroutine foo
|
|
|
|
subroutine bar
|
|
call foo (.false.)
|
|
end subroutine bar
|