! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror
module m
 contains
  subroutine unlimited(x)
    class(*), intent(in) :: x
  end
  subroutine test
    !PORTABILITY: passing Hollerith to unlimited polymorphic as if it were CHARACTER
    call unlimited(6HHERMAN)
    call unlimited('abc') ! ok
  end
end