blob: 277d1e224917bb725ba591835ca28e27dda550b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do compile }
!
! PR 46849: [OOP] MODULE PROCEDURE resolution does not work in BLOCK or SELECT TYPE
!
! Contributed by Reinhold Bader <bader@lrz.de>
implicit none
block
call init(fun)
end block
contains
subroutine init(func)
real, external :: func
end subroutine
real function fun()
fun = 1.1
end function
end
|
