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