blob: 9e06b8ac218c3497d29380e89f0b0479c3f45462 [file] [log] [blame]
! { dg-do run }
! { dg-require-visibility "" }
!
! PR 84504: [F08] procedure pointer variables cannot be initialized with functions returning pointers
!
! Contributed by Sriram Swaminarayan <sriram@pobox.com>
module test_mod
implicit none
private
integer, target :: i = 333
procedure(the_proc), pointer, public :: ptr => the_proc
contains
function the_proc()
integer, pointer :: the_proc
the_proc => i
end function
end module
program test_prog
use test_mod
integer, pointer :: ip
ip => ptr()
if (ip /= 333) stop 1
end