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'" }
|
