gcc/testsuite/gfortran.dg/proc_ptr_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PROCEDURE POINTERS & pointer-valued functions
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 interface
   8   integer function f1()
   9   end function
  10 end interface
  11
  12 interface
  13  function f2()
  14    integer, pointer :: f2
  15  end function
  16 end interface
  17
  18 interface
  19  function pp1()
  20    integer :: pp1
  21  end function
  22 end interface
  23 pointer :: pp1
  24
  25 pointer :: pp2
  26 interface
  27   function pp2()
  28     integer :: pp2
  29   end function
  30 end interface
  31
  32 pointer :: pp3
  33 interface
  34   function pp3()
  35     integer, pointer :: pp3
  36   end function
  37 end interface
  38
  39 interface
  40   function pp4()
  41     integer, pointer :: pp4
  42   end function
  43 end interface
  44 pointer :: pp4
  45
  46
  47 pp1 => f1
  48
  49 pp2 => pp1
  50
  51 f2 => f1        ! { dg-error "is not a variable" }
  52
  53 pp3 => f2
  54
  55 pp4 => pp3
  56
  57 end