Subversion Repositories openrisc

! { 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 

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

! { dg-final { cleanup-modules "other_fun" } }