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

From-SVN: r160629

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 19d0c6df09b81c46a8b76bb562d60fbd17a4e569..2e27433e9d57ccc66f008b4bf015936beeca853a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 8418d2b22af6d897177147d79085167ad25b2d16..10e0dec8a85f6822b95041d071f31a39cf952b1b 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -583,7 +583,7 @@ gfc_build_intrinsic_lib_fndecls (void)
       if (m->complex_long_double_built_in != END_BUILTINS)
        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.  */
       if (m->long_double_built_in != END_BUILTINS)
        m->real16_decl = built_in_decls[m->long_double_built_in];