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