Skip to content

R
riscv-gcc-1
Commit 1826e883 by Francois-Xavier Coudert Committed by François-Xavier Coudert
Options

* trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Fix comment. 

From-SVN: r160629
parent 2921157d
Showing with 5 additions and 1 deletions
gcc/fortran/ChangeLog
2010-06-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2010-06-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Fix comment.
2010-06-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* mathbuiltins.def: Add builtins that do not directly correspond * mathbuiltins.def: Add builtins that do not directly correspond
to a Fortran intrinsic, with new macro OTHER_BUILTIN. to a Fortran intrinsic, with new macro OTHER_BUILTIN.
* f95-lang.c (gfc_init_builtin_functions): Define OTHER_BUILTIN. * f95-lang.c (gfc_init_builtin_functions): Define OTHER_BUILTIN.
......
gcc/fortran/trans-intrinsic.c
...@@ -583,7 +583,7 @@ gfc_build_intrinsic_lib_fndecls (void) ...@@ -583,7 +583,7 @@ gfc_build_intrinsic_lib_fndecls (void)
if (m->complex_long_double_built_in != END_BUILTINS) if (m->complex_long_double_built_in != END_BUILTINS)
m->complex10_decl = built_in_decls[m->complex_long_double_built_in]; m->complex10_decl = built_in_decls[m->complex_long_double_built_in];
/* For now, we assume that if real(kind=10) exists, it is long double. /* For now, we assume that if real(kind=16) exists, it is long double.
Later, we will deal with __float128 and break this assumption. */ Later, we will deal with __float128 and break this assumption. */
if (m->long_double_built_in != END_BUILTINS) if (m->long_double_built_in != END_BUILTINS)
m->real16_decl = built_in_decls[m->long_double_built_in]; m->real16_decl = built_in_decls[m->long_double_built_in];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment