1*1595ca43SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*1595ca43SPeter Klauslersubroutine s(a) 3*1595ca43SPeter Klausler real a(*) 4*1595ca43SPeter Klausler interface 5*1595ca43SPeter Klausler elemental function ef(efarg) 6*1595ca43SPeter Klausler real, intent(in) :: efarg 7*1595ca43SPeter Klausler end 8*1595ca43SPeter Klausler end interface 9*1595ca43SPeter Klausler!ERROR: Whole assumed-size array 'a' may not be used as an argument to an elemental procedure 10*1595ca43SPeter Klausler print *, sqrt(a) 11*1595ca43SPeter Klausler!ERROR: Whole assumed-size array 'a' may not be used as an argument to an elemental procedure 12*1595ca43SPeter Klausler print *, ef(a) 13*1595ca43SPeter Klauslerend 14