mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 04:06:46 +00:00
1595ca435c
A whole assumed-size array is not a valid argument to an elemental procedure (intrinsic or otherwise).
14 lines
404 B
Fortran
14 lines
404 B
Fortran
! 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
|