blob: 277d1e224917bb725ba591835ca28e27dda550b9 [file] [log] [blame]
! { 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