URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_7.f90] - Rev 329
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! { dg-options "-fcheck=recursion" }
! { dg-shouldfail "Recursion check" }
!
! PR fortran/32626
! Recursion run-time check
!
subroutine NormalFunc()
end subroutine NormalFunc
recursive subroutine valid(x)
logical :: x
if(x) call sndValid()
print *, 'OK'
end subroutine valid
subroutine sndValid()
call valid(.false.)
end subroutine sndValid
subroutine invalid(x)
logical :: x
if(x) call sndInvalid()
print *, 'BUG'
call abort()
end subroutine invalid
subroutine sndInvalid()
call invalid(.false.)
end subroutine sndInvalid
call valid(.true.)
call valid(.true.)
call NormalFunc()
call NormalFunc()
call invalid(.true.)
end
! { dg-output "Fortran runtime error: Recursive call to nonrecursive procedure 'invalid'" }
Go to most recent revision | Compare with Previous | Blame | View Log