gcc/testsuite/gfortran.dg/proc_ptr_comp_43.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 58023: [F03] ICE on invalid with bad PPC declaration
   4 !
   5 ! Contributed by Andrew Benson <abensonca@gmail.com>
   6
   7 module m
   8   implicit none
   9
  10   abstract interface
  11      double precision function mr()
  12      end function mr
  13   end interface
  14
  15   type :: sfd
  16      procedure(mr), pointer :: mr1  ! { dg-error "must have at least one argument" }
  17      procedure(mr), pointer :: mr2  ! { dg-error "must have at least one argument" }
  18   end type sfd
  19
  20 contains
  21
  22   subroutine go()
  23     implicit none
  24     type(sfd):: d
  25
  26     write (0,*) d%mr2()
  27     return
  28   end subroutine go
  29
  30 end module m