! 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