| ! { dg-do compile } | |
| ! | |
| ! PR 39946: PROCEDURE statements: interface with RESULT variable | |
| ! | |
| ! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de> | |
| ! Modified by Janus Weil <janus@gcc.gnu.org> | |
| procedure(prc_is_allowed), pointer :: fptr | |
| interface | |
| function prc_is_allowed (flv, hel, col) result (is_allowed) | |
| logical :: is_allowed | |
| integer, intent(in) :: flv, hel, col | |
| end function prc_is_allowed | |
| end interface | |
| fptr => prc_is_allowed | |
| end | |