gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 39630: [F03] Procedure Pointer Components with PASS
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 module m
   8
   9  type :: t0
  10   procedure() :: p0  ! { dg-error "POINTER attribute is required for procedure pointer component" }
  11  end type
  12
  13  type :: t1
  14   integer :: i
  15   procedure(foo1), pointer :: f1  ! { dg-error "must be scalar" }
  16  end type
  17
  18  type :: t2
  19   integer :: i
  20   procedure(foo2), pointer :: f2  ! { dg-error "may not have the POINTER attribute" }
  21  end type
  22
  23  type :: t3
  24   integer :: i
  25   procedure(foo3), pointer :: f3  ! { dg-error "may not be ALLOCATABLE" }
  26  end type
  27
  28  type :: t4
  29    procedure(),     pass(x), pointer :: f4  ! { dg-error "NOPASS or explicit interface required" }
  30    procedure(real), pass(y), pointer :: f5  ! { dg-error "NOPASS or explicit interface required" }
  31    procedure(foo6), pass(c), pointer :: f6  ! { dg-error "has no argument" }
  32  end type
  33
  34  type :: t7
  35    procedure(foo7), pass, pointer :: f7  ! { dg-error "must have at least one argument" }
  36  end type
  37
  38  type :: t8
  39    procedure(foo8), pass, pointer :: f8  ! { dg-error "must be of the derived type" }
  40  end type
  41
  42 contains
  43
  44  subroutine foo1 (x1,y1)
  45   type(t1) :: x1(:)
  46   type(t1) :: y1
  47  end subroutine
  48
  49  subroutine foo2 (x2,y2)
  50   type(t2),pointer :: x2
  51   type(t2) :: y2
  52  end subroutine
  53
  54  subroutine foo3 (x3,y3)
  55   type(t3),allocatable :: x3
  56   type(t3) :: y3
  57  end subroutine
  58
  59  real function foo6 (a,b)
  60    real :: a,b
  61    foo6 = 1.
  62  end function
  63
  64  integer function foo7 ()
  65    foo7 = 2
  66  end function
  67
  68  character function foo8 (i)
  69    integer :: i
  70  end function
  71
  72 end module m