blob: 7afac3369f88f2f554bbd3b652b5c50bf4b4a40d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
!
! PR fortran/36463
! Gfortran used to fail on this testcase with:
! gfc_get_default_type(): Bad symbol '@0'
!
! Original program by James Van Buskirk
! Reduced by Janus Weil <janus@gcc.gnu.org>
module other_fun
interface
function abstract_fun(x)
integer x
integer abstract_fun(x)
end function abstract_fun
end interface
end module other_fun
program fptr
use other_fun
procedure(abstract_fun) :: fun
end program fptr
|
