[ObjectYAML][NFC] Simplify ELFState<ELFT>::initProgramHeaders() (#123703)

[llvm-project.git] / flang / test / Semantics / elemental02.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
subroutine s(a)
  real a(*)
  interface
    elemental function ef(efarg)
      real, intent(in) :: efarg
    end
  end interface
!ERROR: Whole assumed-size array 'a' may not be used as an argument to an elemental procedure
  print *, sqrt(a)
!ERROR: Whole assumed-size array 'a' may not be used as an argument to an elemental procedure
  print *, ef(a)
end