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