[Bug fortran/48979] FRACTION und EXPONENT return invalid results for infinity/NaN

[fxcoudert at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=48979

--- Comment #19 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
Author: fxcoudert
Date: Sun Oct 19 20:49:27 2014
New Revision: 216443

URL: https://gcc.gnu.org/viewcvs?rev=216443&root=gcc&view=rev
Log:
    PR fortran/48979

    * trans-const.c (gfc_build_nan): New function.
    * trans-const.h (gfc_build_nan): New prototype.
    * trans-intrinsic.c (gfc_conv_intrinsic_exponent): Handle special
    values.
    (gfc_conv_intrinsic_minmaxval): Use gfc_build_nan.
    (gfc_conv_intrinsic_fraction): Handle special values.
    (gfc_conv_intrinsic_spacing): Likewise.
    (gfc_conv_intrinsic_rrspacing): Likewise.
    (gfc_conv_intrinsic_set_exponent): Likewise.

    * gfortran.dg/ieee/intrinsics_2.F90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/ieee/intrinsics_2.F90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-const.c
    trunk/gcc/fortran/trans-const.h
    trunk/gcc/fortran/trans-intrinsic.c
    trunk/gcc/testsuite/ChangeLog