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