blob: d966648fc30b240c6b1689e7e9d3b7aefff2c1e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
!
! PR 46201: [F03] ICE on procedure pointer component call
!
! Contributed by Stephen J. Bespalko <sjbespa@comcast.net>
type t
procedure(character), nopass, pointer :: ppc
end type
type(t),dimension(1) :: v
print *,v(1)%ppc()
end
|