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