xref: /llvm-project/flang/test/Semantics/array-constr-index01.f90 (revision 22c59e01cd2f87164301415c93b60fc3c204dfb8) 
1*22c59e01SPeter Klausler!RUN: %python %S/test_errors.py %s %flang_fc1
2*22c59e01SPeter Klauslersubroutine s(i)
3*22c59e01SPeter Klausler  type(*) :: i
4*22c59e01SPeter Klausler  !ERROR: TYPE(*) dummy argument may only be used as an actual argument
5*22c59e01SPeter Klausler  !ERROR: Assumed-type entity 'i' must be a dummy argument
6*22c59e01SPeter Klausler  !ERROR: Must have INTEGER type, but is TYPE(*)
7*22c59e01SPeter Klausler  print *, [(i, i = 1,1)]
8*22c59e01SPeter Klauslerend
9