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 2a4301f..dc6a34b 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -159,6 +159,9 @@ gfc_basic_typename (bt type) case BT_CHARACTER: p = "CHARACTER"; break; + case BT_HOLLERITH: + p = "HOLLERITH"; + break; case BT_DERIVED: p = "DERIVED"; break; @@ -207,6 +210,9 @@ gfc_typename (gfc_typespec * ts) case BT_CHARACTER: sprintf (buffer, "CHARACTER(%d)", ts->kind); break; + case BT_HOLLERITH: + sprintf (buffer, "HOLLERITH"); + break; case BT_DERIVED: sprintf (buffer, "TYPE(%s)", ts->derived->name); break; |