This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[fortran,committed] Give Fortran-90-style names to intrinsic types


Instead of naming the intrinsic types int4, logical4, real4, complex4 and character, the patch above gives them a proper Fortran 90 name: integer(kind=4), ... and character(kind=1). This then shows up in gdb when inspecting the type of variables:

(gdb) ptype i
type = int(kind=4)
(gdb) ptype j
type = int(kind=8)
(gdb) ptype l
type = logical(kind=4)

This does not yet work for real and complex, because GDB ignores what we say there. (Time to make use of my new GDB copyright assignement!)

Regtested on x86_64-linux, committed (rev. 130261) as obvious after Jerry's approval on IRC.

FX



2007-11-17 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>

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


Index: trans-types.c =================================================================== --- trans-types.c (revision 130234) +++ trans-types.c (working copy) @@ -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);


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]