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 16end 17