| ! { 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 |