From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Sat, 17 Nov 2007 20:07:21 +0000 (+0000)
Subject: trans-types.c (gfc_init_types): Use Fortran-90-style type names, with kinds.
X-Git-Tag: releases/gcc-4.3.0~1462
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=40373aa6b00f22096a8e9a0d4b9d7e4b00b010c7;p=thirdparty%2Fgcc.git

trans-types.c (gfc_init_types): Use Fortran-90-style type names, with kinds.

	* trans-types.c (gfc_init_types): Use Fortran-90-style type
	names, with kinds.

From-SVN: r130261
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b12355c729e5..75b6b6cda7c6 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-17  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* trans-types.c (gfc_init_types): Use Fortran-90-style type
+	names, with kinds.
+
 2007-11-17  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/34133
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 88066a38f38f..b30a37e49566 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -687,7 +687,7 @@ gfc_init_types (void)
     {
       type = gfc_build_int_type (&gfc_integer_kinds[index]);
       gfc_integer_types[index] = type;
-      snprintf (name_buf, sizeof(name_buf), "int%d",
+      snprintf (name_buf, sizeof(name_buf), "integer(kind=%d)",
 		gfc_integer_kinds[index].kind);
       PUSH_TYPE (name_buf, type);
     }
@@ -696,7 +696,7 @@ gfc_init_types (void)
     {
       type = gfc_build_logical_type (&gfc_logical_kinds[index]);
       gfc_logical_types[index] = type;
-      snprintf (name_buf, sizeof(name_buf), "logical%d",
+      snprintf (name_buf, sizeof(name_buf), "logical(kind=%d)",
 		gfc_logical_kinds[index].kind);
       PUSH_TYPE (name_buf, type);
     }
@@ -705,20 +705,20 @@ gfc_init_types (void)
     {
       type = gfc_build_real_type (&gfc_real_kinds[index]);
       gfc_real_types[index] = type;
-      snprintf (name_buf, sizeof(name_buf), "real%d",
+      snprintf (name_buf, sizeof(name_buf), "real(kind=%d)",
 		gfc_real_kinds[index].kind);
       PUSH_TYPE (name_buf, type);
 
       type = gfc_build_complex_type (type);
       gfc_complex_types[index] = type;
-      snprintf (name_buf, sizeof(name_buf), "complex%d",
+      snprintf (name_buf, sizeof(name_buf), "complex(kind=%d)",
 		gfc_real_kinds[index].kind);
       PUSH_TYPE (name_buf, type);
     }
 
   gfc_character1_type_node = build_type_variant (unsigned_char_type_node, 
 						 0, 0);
-  PUSH_TYPE ("char", gfc_character1_type_node);
+  PUSH_TYPE ("character(kind=1)", gfc_character1_type_node);
 
   PUSH_TYPE ("byte", unsigned_char_type_node);
   PUSH_TYPE ("void", void_type_node);