! 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 |