[Bug fortran/34333] if(nan == nan) wrongly returns TRUE, when nan is a parameter

[burnus at gcc dot gnu dot org]

------- Comment #5 from burnus at gcc dot gnu dot org  2007-12-05 13:42 -------
Subject: Bug 34333

Author: burnus
Date: Wed Dec  5 13:42:32 2007
New Revision: 130623

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130623
Log:
2007-12-05  Tobias Burnus  <[EMAIL PROTECTED]>

        PR fortran/34333
        * arith.h (gfc_compare_expr): Add operator argument, needed
        for compare_real.
        * arith.c (gfc_arith_init_1): Use mpfr_min instead of
        * mpfr_cmp/set
        to account for NaN.
        (compare_real): New function, as mpfr_cmp but takes NaN into
        account.
        (gfc_compare_expr): Use compare_real.
        (compare_complex): Take NaN into account.
        (gfc_arith_eq,gfc_arith_ne,gfc_arith_gt,gfc_arith_ge,gfc_arith_lt,
        gfc_arith_le): Pass operator to gfc_compare_expr.
        * resolve.c (compare_cases,resolve_select): Pass operator
        to gfc_compare_expr.
        * simplify.c (simplify_min_max): Take NaN into account.

2007-12-05  Tobias Burnus  <[EMAIL PROTECTED]>

        PR fortran/34333
        * gfortran.dg/nan_2.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/nan_2.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/arith.c
    trunk/gcc/fortran/arith.h
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/simplify.c
    trunk/gcc/testsuite/ChangeLog


-- 


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