! { dg-do compile }
!

function g()
 interface
    subroutine g()
    end subroutine g
  end interface
  pointer g
  real g   ! { dg-error "Symbol 'g' at .1. cannot have a type" }
end function