|
111
|
1 ! { dg-do compile }
|
|
|
2 !
|
|
|
3 ! PR 56968: [4.7/4.8/4.9 Regression] [F03] Issue with a procedure defined with a generic name returning procedure pointer
|
|
|
4 !
|
|
|
5 ! Contributed by Samuel Debionne <samuel.debionne@ujf-grenoble.fr>
|
|
|
6
|
|
|
7 module test
|
|
|
8
|
|
|
9 interface generic_name_get_proc_ptr
|
|
|
10 module procedure specific_name_get_proc_ptr
|
|
|
11 end interface
|
|
|
12
|
|
|
13 abstract interface
|
|
|
14 double precision function foo(arg1)
|
|
|
15 real, intent(in) :: arg1
|
|
|
16 end function
|
|
|
17 end interface
|
|
|
18
|
|
|
19 contains
|
|
|
20
|
|
|
21 function specific_name_get_proc_ptr() result(res)
|
|
|
22 procedure(foo), pointer :: res
|
|
|
23 end function
|
|
|
24
|
|
|
25 end module test
|
|
|
26
|
|
|
27 program crash_test
|
|
|
28 use :: test
|
|
|
29
|
|
|
30 procedure(foo), pointer :: ptr
|
|
|
31
|
|
|
32 ptr => specific_name_get_proc_ptr()
|
|
|
33 ptr => generic_name_get_proc_ptr()
|
|
|
34
|
|
|
35 end program
|
