14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s(a)3 real a(*)4 interface5 elemental function ef(efarg)6 real, intent(in) :: efarg7 end8 end interface9!ERROR: Whole assumed-size array 'a' may not be used as an argument to an elemental procedure10 print *, sqrt(a)11!ERROR: Whole assumed-size array 'a' may not be used as an argument to an elemental procedure12 print *, ef(a)13end14