blob: 7247c06a9536b7e89b79ebb3128422a24eddbe79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { 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
|
