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) call abort() 38if (u%ppc()/=43) call abort() 39 40end 41