https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125379
--- Comment #7 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Reduced a bit more:
module blha_olp_interfaces
type :: blha_driver_t
procedure(olp_polvec), nopass, pointer :: blha_olp_polvec => null ()
end type blha_driver_t
interface
subroutine olp_polvec () bind(C)
end subroutine
end interface
end module blha_olp_interfaces
module pcm_base
use blha_olp_interfaces
private
end module pcm_base
module api
use pcm_base
end module api
function whizard_get_char () result (stat) bind (C)
use api, only: whizard_api_t
end function whizard_get_char
