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