brintos / llvm-project-archived public Read only

Text · 176 B · 5a73ba4 Raw

8 lines · plain

1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine bad(a)3  real :: a(..)4  !ERROR: Selector must not be assumed-rank5  associate(x => a)6  end associate7end subroutine8