1*ed5a78a1SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*ed5a78a1SPeter Klauslersubroutine bad(a) 3*ed5a78a1SPeter Klausler real :: a(..) 4*ed5a78a1SPeter Klausler !ERROR: Selector must not be assumed-rank 5*ed5a78a1SPeter Klausler associate(x => a) 6*ed5a78a1SPeter Klausler end associate 7*ed5a78a1SPeter Klauslerend subroutine 8