I just want to submit a bug report on
f90: Studio 12.6 Fortran 95 8.8 Linux_i386 2017/05/30
Can't find how to do this. Please help.
For reference, I put the report below.
Originally posted at:
use, intrinsic :: iso_fortran_env
use, intrinsic :: ieee_arithmetic
implicit none
real, parameter :: one = 1.0
real( kind=real32 ) :: im32 = 0.0
real( kind=real64 ) :: im64 = 0.0
real( kind=real128) :: im128 = 0.0
write (*,*) ieee_support_datatype(im32), &
ieee_support_datatype(im64), &
ieee_support_datatype(im128), &
ieee_support_datatype(one)
write (*,*) ieee_copy_sign( one , im32 )
write (*,*) ieee_copy_sign( one , -im32 )
write (*,*) ieee_copy_sign( one , im64 )
write (*,*) ieee_copy_sign( one , -im64 )
write (*,*) ieee_copy_sign( one , im128 )
write (*,*) ieee_copy_sign( one , -im128 )
end
compiling with
f90: Studio 12.6 Fortran 95 8.8 Linux_i386 2017/05/30
[mexas@newblue2 terminal]$ f90 z.f90
[mexas@newblue2 terminal]$ ./a.out
T T T T
0.0E+0
0.0E+0
1.0
-1.0
1.0
-1.0
The first 2 numerical outputs are expected to be 1.0 and -1.0.