mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
41 lines
473 B
Fortran
41 lines
473 B
Fortran
! { dg-do run }
|
|
!
|
|
! PR 45290: [F08] pointer initialization
|
|
!
|
|
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
module m
|
|
|
|
implicit none
|
|
|
|
procedure(f1), pointer :: pp => f1
|
|
|
|
type :: t
|
|
procedure(f2), pointer, nopass :: ppc => f2
|
|
end type
|
|
|
|
contains
|
|
|
|
integer function f1()
|
|
f1 = 42
|
|
end function
|
|
|
|
integer function f2()
|
|
f2 = 43
|
|
end function
|
|
|
|
end module
|
|
|
|
|
|
program test_ptr_init
|
|
|
|
use m
|
|
implicit none
|
|
|
|
type (t) :: u
|
|
|
|
if (pp()/=42) STOP 1
|
|
if (u%ppc()/=43) STOP 2
|
|
|
|
end
|