diff options
| author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2016-08-22 10:27:46 +0000 |
|---|---|---|
| committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2016-08-22 10:27:46 +0000 |
| commit | f733cf303bcdc952c92b81dd62199a40a1f555ec (patch) | |
| tree | 0a9a9e0f28aa7c7f5bc4d1d1d0e9647163cac4f7 /gcc/fortran/misc.c | |
| parent | e0e4357b88efe5dc53e50d341a09de4d02331200 (diff) | |
| download | gcc-tarball-gcc-6.2.0.tar.gz | |
gcc-6.2.0gcc-6.2.0
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 405bae072b..1747ff2ac7 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; |