diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2009-03-30 17:37:02 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@gcc.gnu.org> | 2009-03-30 17:37:02 +0000 |
| commit | f6d534688d18d94e7a16e25299f8d73748f1e934 (patch) | |
| tree | 5c51010d83e2fa964bc90dfec59ff25dafa3a114 /gcc/fortran/f95-lang.c | |
| parent | 4c936d4f4cf6a3ba7fc404a990f1975182e9fdda (diff) | |
| download | gcc-f6d534688d18d94e7a16e25299f8d73748f1e934.zip gcc-f6d534688d18d94e7a16e25299f8d73748f1e934.tar.gz gcc-f6d534688d18d94e7a16e25299f8d73748f1e934.tar.bz2 | |
f95-lang.c (gfc_init_builtin_functions): Define BUILT_IN_HUGE_VAL family of intrinsics instead of BUILT_IN_INF family.
* f95-lang.c (gfc_init_builtin_functions): Define BUILT_IN_HUGE_VAL
family of intrinsics instead of BUILT_IN_INF family.
* trans-intrinsics.c (gfc_conv_intrinsic_nearest): Use
BUILT_IN_HUGE_VAL instead of BUILT_IN_INF.
From-SVN: r145307
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index a7d6c8f..b8f2d22 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -917,12 +917,12 @@ gfc_init_builtin_functions (void) gfc_define_builtin ("__builtin_fmodf", mfunc_float[1], BUILT_IN_FMODF, "fmodf", true); - gfc_define_builtin ("__builtin_infl", mfunc_longdouble[3], - BUILT_IN_INFL, "__builtin_infl", true); - gfc_define_builtin ("__builtin_inf", mfunc_double[3], - BUILT_IN_INF, "__builtin_inf", true); - gfc_define_builtin ("__builtin_inff", mfunc_float[3], - BUILT_IN_INFF, "__builtin_inff", true); + gfc_define_builtin ("__builtin_huge_vall", mfunc_longdouble[3], + BUILT_IN_HUGE_VALL, "__builtin_huge_vall", true); + gfc_define_builtin ("__builtin_huge_val", mfunc_double[3], + BUILT_IN_HUGE_VAL, "__builtin_huge_val", true); + gfc_define_builtin ("__builtin_huge_valf", mfunc_float[3], + BUILT_IN_HUGE_VALF, "__builtin_huge_valf", true); /* lround{f,,l} and llround{f,,l} */ type = tree_cons (NULL_TREE, float_type_node, void_list_node); |