1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror 2module m 3 contains 4 subroutine unlimited(x) 5 class(*), intent(in) :: x 6 end 7 subroutine test 8 !PORTABILITY: passing Hollerith to unlimited polymorphic as if it were CHARACTER 9 call unlimited(6HHERMAN) 10 call unlimited('abc') ! ok 11 end 12end 13