gcc/testsuite/gfortran.dg/proc_ptr_comp_42.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   implicit none
   8
   9   type :: sfd
  10     procedure(mr), pointer :: mr2  ! { dg-error "must be explicit" }
  11   end type
  12
  13   type(sfd):: d
  14   print *, d%mr2()
  15
  16 end