blob: 0cfe842137e1c7a99abe02ea4e7c6e92b53b715c (
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
|
! { dg-do compile }
! Test fix for PR37583, in which:
! (i) the reference to glocal prior to the ENTRY caused an internal
! error and
! (ii) the need for a RECURSIVE attribute was ignored.
!
! Contributed by Arjen Markus <arjen.markus@wldelft.nl>
!
module gsub
contains
recursive subroutine suba( g ) ! prefix with "RECURSIVE"
interface
real function g(x)
real x
end function
end interface
real :: x, y
call mysub( glocala )
return
entry glocala( x, y )
y = x
end subroutine
subroutine subb( g )
interface
real function g(x)
real x
end function
end interface
real :: x, y
call mysub( glocalb ) ! { dg-warning "Non-RECURSIVE" }
return
entry glocalb( x, y )
y = x
end subroutine
end module
! { dg-final { cleanup-modules "gsub" } }
|
