diff options
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index f80c9fa..b5e6275 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -71,7 +71,6 @@ gfc_clear_ts (gfc_typespec *ts) ts->kind = 0; ts->u.cl = NULL; ts->interface = NULL; - ts->is_class = 0; /* flag that says if the type is C interoperable */ ts->is_c_interop = 0; /* says what f90 type the C kind interops with */ @@ -131,6 +130,9 @@ gfc_basic_typename (bt type) case BT_DERIVED: p = "DERIVED"; break; + case BT_CLASS: + p = "CLASS"; + break; case BT_PROCEDURE: p = "PROCEDURE"; break; @@ -186,6 +188,10 @@ gfc_typename (gfc_typespec *ts) case BT_DERIVED: sprintf (buffer, "TYPE(%s)", ts->u.derived->name); break; + case BT_CLASS: + sprintf (buffer, "CLASS(%s)", + ts->u.derived->components->ts.u.derived->name); + break; case BT_PROCEDURE: strcpy (buffer, "PROCEDURE"); break; |