summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/recursive_check_7.f90
blob: c1af8adc810222bc254769cadbc6158916361a56 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
! { 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'" }