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 405bae0..1747ff2 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -83,6 +83,9 @@ gfc_basic_typename (bt type) case BT_HOLLERITH: p = "HOLLERITH"; break; + case BT_UNION: + p = "UNION"; + break; case BT_DERIVED: p = "DERIVED"; break; @@ -144,6 +147,9 @@ gfc_typename (gfc_typespec *ts) case BT_HOLLERITH: sprintf (buffer, "HOLLERITH"); break; + case BT_UNION: + sprintf (buffer, "UNION(%s)", ts->u.derived->name); + break; case BT_DERIVED: sprintf (buffer, "TYPE(%s)", ts->u.derived->name); break; |