13 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror2module m3 contains4 subroutine unlimited(x)5 class(*), intent(in) :: x6 end7 subroutine test8 !PORTABILITY: passing Hollerith to unlimited polymorphic as if it were CHARACTER [-Whollerith-polymorphic]9 call unlimited(6HHERMAN)10 call unlimited('abc') ! ok11 end12end13