diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-11-17 20:07:21 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-11-17 20:07:21 +0000 |
| commit | 40373aa6b00f22096a8e9a0d4b9d7e4b00b010c7 (patch) | |
| tree | 175e01533f3969035605a2ba30919022adbf9138 /gcc | |
| parent | 01f4fff18bd3d72903ac6b0d9a3d9b0bd9d31492 (diff) | |
| download | gcc-40373aa6b00f22096a8e9a0d4b9d7e4b00b010c7.zip gcc-40373aa6b00f22096a8e9a0d4b9d7e4b00b010c7.tar.gz gcc-40373aa6b00f22096a8e9a0d4b9d7e4b00b010c7.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b12355c..75b6b6c 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 88066a3..b30a37e 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); |