! { dg-do compile }
! PR fortran/95375 - ICE in add_use_op
! Contributed by G.Steinmetz

function f() result(n) bind(c)      ! { dg-error "not C interoperable" }
  class(*), allocatable :: n
end
program p
  interface
     function f() result(n) bind(c)
       integer :: n
     end
  end interface
  if ( f() /= 0 ) stop
end

! { dg-prune-output "Type mismatch" }