[Bug libfortran/34209] run-time lib: NEAREST(0.0_8, -1.0) produces wrong numbers

["jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #4 from jvdelisle at gcc dot gnu dot org  2007-11-24 00:25 -------
Subject: Bug 34209

Author: jvdelisle
Date: Sat Nov 24 00:25:01 2007
New Revision: 130391

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130391
Log:
2007-11-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR fortran/34209
        * iresolve.c (gfc_resolve_nearest): If sign variable kind does not
match
        kind of input variable, convert it to match.

        PR fortran/33317
        * trans.h: Modify prototype for gfc_conv_missing_dummy.
        * trans-expr.c (gfc_conv_missing_dummy): Modify to pass an integer kind
        parameter in.  Set the type of the dummy to the kind given.
        (gfc_conv_function_call): Pass representation.length to
        gfc_conv_missing_dummy.
        * iresolve.c (gfc_resolve_cshift): Determine the correct kind to use
and
        if appropriate set representation.length to this kind value.
        (gfc_resolve_eoshift): Likewise.
        * check.c (gfc_check_cshift): Enable dim_check to allow DIM as an
        optional argument. (gfc_check_eoshift): Likewise.
        * trans_intrinsic.c (gfc_conv_intrinsic_function_args): Update call to
        gfc_conv_missing_dummy.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/check.c
    trunk/gcc/fortran/iresolve.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-intrinsic.c
    trunk/gcc/fortran/trans.h


-- 


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