2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / proc_ptr_comp_42.f90
blob3773fae39524e96951a75b7b30b4a998cd5cc55c
1 ! { dg-do compile }
3 ! PR 58023: [F03] ICE on invalid with bad PPC declaration
5 ! Contributed by Andrew Benson <abensonca@gmail.com>
7 implicit none
9 type :: sfd
10 procedure(mr), pointer :: mr2 ! { dg-error "must be explicit" }
11 end type
13 type(sfd):: d
14 print *, d%mr2()
16 end