1!RUN: %python %S/test_errors.py %s %flang_fc1
2subroutine s(i)
3 type(*) :: i
4 !ERROR: TYPE(*) dummy argument may only be used as an actual argument
5 !ERROR: Assumed-type entity 'i' must be a dummy argument
6 !ERROR: Must have INTEGER type, but is TYPE(*)
7 print *, [(i, i = 1,1)]
8end
9