mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
13 lines
254 B
Fortran
13 lines
254 B
Fortran
! { 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
|