! { dg-do compile } | |
! | |
! PR 45366: Problem with procedure pointer dummy in PURE function | |
! | |
! Contributed by Marco Restelli <mrestelli@gmail.com> | |
module m1 | |
implicit none | |
abstract interface | |
pure function i_f(x) result(y) | |
real, intent(in) :: x | |
real :: y | |
end function i_f | |
end interface | |
end module m1 | |
module m2 | |
use m1, only: i_f | |
implicit none | |
contains | |
pure function i_g(x,p) result(y) | |
real, intent(in) :: x | |
procedure(i_f), pointer, intent(in) :: p | |
real :: y | |
y = p(x) | |
end function i_g | |
end module m2 |