[Bug libfortran/34141] New: gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 fails on Intel Darwin9

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 fails on Intel
Darwin9 at all level of optimization. The following reduced test case shows the
origin of the failure (EXPONENT for real(4), but not for real(8)):

!Program to test SET_EXPONENT intrinsic function.

  real*4 x,y
  integer*4 i,n
  equivalence(x, i)

  n = -125
  x = 1024.0
  y = set_exponent (x, n)
  print *, y, n, exponent(y)

  n = -126
  y = set_exponent (x, n)
  print *, y, n, exponent(y)

  n = -148
  y = set_exponent (x, n)
  print *, y, n, exponent(y)

  n = -149
  y = set_exponent (x, n)
  print *, y, n, exponent(y)
  if ((y .ne. 0.0) .and. (exponent (y) .ne. n)) call abort()

end

which yields:

  1.17549435E-38        -125        -125
  5.87747175E-39        -126        -127
  1.40129846E-45        -148        -149
   0.0000000            -149           0

where the result of exponent is off by -1 for denormalized numbers (the value
of 'y' is correct).  This is certainly due to some changes in the OS library,
but the bug may also come from the implementation of exponent in
libgfortran(?).


-- 
           Summary: gfortran.fortran-
                    torture/execute/intrinsic_set_exponent.f90 fails on
                    Intel Darwin9
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dominiq at lps dot ens dot fr
 GCC build triplet: i686-apple-darwin9
  GCC host triplet: i686-apple-darwin9
GCC target triplet: i686-apple-darwin9


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34141