blob: 9e06b8ac218c3497d29380e89f0b0479c3f45462 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|
