| ! { dg-do compile } |
| ! |
| ! PR 56968: [4.7/4.8/4.9 Regression] [F03] Issue with a procedure defined with a generic name returning procedure pointer |
| ! |
| ! Contributed by Samuel Debionne <samuel.debionne@ujf-grenoble.fr> |
| |
| module test |
| |
| interface generic_name_get_proc_ptr |
| module procedure specific_name_get_proc_ptr |
| end interface |
| |
| abstract interface |
| double precision function foo(arg1) |
| real, intent(in) :: arg1 |
| end function |
| end interface |
| |
| contains |
| |
| function specific_name_get_proc_ptr() result(res) |
| procedure(foo), pointer :: res |
| end function |
| |
| end module test |
| |
| program crash_test |
| use :: test |
| |
| procedure(foo), pointer :: ptr |
| |
| ptr => specific_name_get_proc_ptr() |
| ptr => generic_name_get_proc_ptr() |
| |
| end program |