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