blob: afcc4c73f28a9296526fa899fa27ed6b05f4f9ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
!
! PR 47768: ICE: printing a derived-type variable with proc-pointer components
!
! Contributed by Janus Weil <janus@gcc.gnu.org>
type :: t
integer :: i = 3
procedure(type(t)), pointer, nopass :: ppc
end type
type(t) :: x
print *,x ! { dg-error "cannot have procedure pointer components" }
end
|
