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 7module 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 20contains 21 22 subroutine go() 23 implicit none 24 type(sfd):: d 25 26 write (0,*) d%mr2() 27 return 28 end subroutine go 29 30end module m 31 32! { dg-final { cleanup-modules "m" } } 33