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

From-SVN: r160629

gcc/fortran/ChangeLog

 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
 	to a Fortran intrinsic, with new macro 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)
       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];