Hi,
This is a bug of flang-new 19.0.0.
Code (latest version available at https://github.com/zequipe/test_compiler/blob/master/test_sum.f90):
! test_sum.f90
program test_sum
use ieee_arithmetic, only : ieee_value, ieee_positive_inf
! The problem occurs with REAL128, REAL64, and REAL32. sum is not implemented for REAL16 as of flang 19.0.0.
use iso_fortran_env, only : RP => REAL128 !REAL64 !REAL32 !REAL16
implicit none
real(RP) :: x(2), y, inf
inf = ieee_value(0.0_RP, ieee_positive_inf)
x = [inf, 0.0_RP]
y = sum(x)
print *, sum(x), x(1) + x(2)
print *, 'sum(x) is ', y
if (.not. y >= inf) then
error stop 1
end if
end program test_sumTest:
uname -a && flang --version && flang test_sum.f90 && ./a.out
Result:
Linux 6.5.0-28-generic #29~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Thu Apr 4 14:39:20 UTC 2 x86_64 x86_64 x86_64 GNU/Linux
flang-new version 19.0.0git ([email protected]:llvm/llvm-project.git 37c175af955f0aeab67e8c553a0a47b2ed0fdba2)
Target: x86_64-unknown-linux-gnu
Thread model: posix
NaN Inf
sum(x) is NaN
Fortran ERROR STOP: code 1
IEEE arithmetic exceptions signaled: INVALID
Thank you for taking a look.
Hi,
This is a bug of flang-new 19.0.0.
Code (latest version available at https://github.com/zequipe/test_compiler/blob/master/test_sum.f90):
Test:
Result:
Thank you for taking a look.