1! { dg-do run }
2!
3! PR 45290: [F08] pointer initialization
4!
5! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7module m
8
9implicit none
10
11contains
12
13  integer function f1()
14    f1 = 42
15  end function
16
17  integer function f2()
18    f2 = 43
19  end function
20
21end module
22
23
24program test_ptr_init
25
26use m
27implicit none
28
29procedure(f1), pointer :: pp => f1
30
31type :: t
32  procedure(f2), pointer, nopass :: ppc => f2
33end type
34
35type (t) :: u
36
37if (pp()/=42) STOP 1
38if (u%ppc()/=43) STOP 2
39
40end
41