Skip to Main Content

Infrastructure Software

Announcement

For appeals, questions and feedback, please email oracle-forums_moderators_us@oracle.com

Oracle Fortran bug report - how to submit?

3583281Nov 10 2017 — edited Dec 5 2017

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.

Comments
Locked Post
New comments cannot be posted to this locked post.
Post Details
Locked on Jan 2 2018
Added on Nov 10 2017
1 comment
140 views