array-constr-index01.f90\Semantics\test\flang - riscv-gnu-toolchain/llvm.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/llvm.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/flang/test/Semantics/array-constr-index01.f90

blob: 560b6be831395814fdc3a71fe8c9eb019602e06a (plain)

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