diff options
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index 05aef9f..012364a 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -107,6 +107,9 @@ gfc_basic_typename (bt type) case BT_UNKNOWN: p = "UNKNOWN"; break; + case BT_ASSUMED: + p = "TYPE(*)"; + break; default: gfc_internal_error ("gfc_basic_typename(): Undefined type"); } @@ -157,6 +160,9 @@ gfc_typename (gfc_typespec *ts) sprintf (buffer, "CLASS(%s)", ts->u.derived->components->ts.u.derived->name); break; + case BT_ASSUMED: + sprintf (buffer, "TYPE(*)"); + break; case BT_PROCEDURE: strcpy (buffer, "PROCEDURE"); break; |