gcc/testsuite/gfortran.dg/pointer_init_5.f90

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