------- Comment #7 from fxcoudert at gcc dot gnu dot org 2007-03-03 12:06
-------
Steven Bosscher had made significant progress on this, IIRC. Steven, what's the
status of your patches?
PS: as a minor improvement, we might want to give numeric types a more
Fortran-like name, with a patch such as the following:
Index: trans-types.c
===================================================================
--- trans-types.c (revision 122038)
+++ trans-types.c (working copy)
@@ -531,7 +531,7 @@
{
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);
}
@@ -540,7 +540,7 @@
{
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);
}
@@ -549,13 +549,13 @@
{
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);
}
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |steven at gcc dot gnu dot
| |org
Last reconfirmed|2006-01-29 19:54:48 |2007-03-03 12:06:04
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24546
