mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
29 lines
412 B
Fortran
29 lines
412 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 40176: Fortran 2003: Procedure pointers with array return value
|
|
!
|
|
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
module m
|
|
|
|
abstract interface
|
|
function ai()
|
|
real, dimension(3) :: ai
|
|
end function
|
|
end interface
|
|
|
|
type t
|
|
procedure(ai), pointer, nopass :: ppc
|
|
end type
|
|
|
|
procedure(ai), pointer :: pp
|
|
|
|
end module
|
|
|
|
program test
|
|
use m
|
|
type(t) :: obj
|
|
obj%ppc => pp
|
|
pp => obj%ppc
|
|
end
|