xref: /llvm-project/flang/test/Semantics/call41.f90 (revision 03e50c451427d908bbf8cf2d455de3ebba49fe4f)
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