diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-01-30 18:20:27 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-01-30 18:20:27 +0000 |
| commit | b6019ab18c777ee68508ce0c7a289043d2f60bcd (patch) | |
| tree | eb77e21bf7cc1d3cd93e0b4e6997833f98ca8035 /libgfortran/generated | |
| parent | cacb4a794f079490a56eb99294947ba5acb4269a (diff) | |
| download | gcc-b6019ab18c777ee68508ce0c7a289043d2f60bcd.zip gcc-b6019ab18c777ee68508ce0c7a289043d2f60bcd.tar.gz gcc-b6019ab18c777ee68508ce0c7a289043d2f60bcd.tar.bz2 | |
re PR fortran/37577 ([meta-bug] change internal array descriptor format for better syntax, C interop TR, rank 15)
2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/37577
* libgfortran.h: Remove GFC_DTYPE_DERIVED_1, GFC_DTYPE_DERIVED_2,
GFC_DTYPE_DERIVED_4, GFC_DTYPE_DERIVED_8 and GFC_DTYPE_DERIVED_16.
* m4/cshift1.m4: Remove GFC_DTYPE_DERIVED_1.
* generated/cshift1_16.c: Regenerated.
* generated/cshift1_4.c: Regenerated.
* generated/cshift1_8.c: Regenerated.
* intrinsics/cshift0.c: Remove GFC_DTYPE_DERIVED_1.
* intrinsics/pack_generic.c (pack): Move handling of other types
into separate switch statement.
* intrinsics/spread_generic.c (spread): Likewise.
(spread_scalar): Likewise.
* intrinsics/unpack_generic.c (unpack1): Likewise.
(unpack0): Likewise.
* runtime/in_pack_generic.c (internal_pack): Likewise.
* runtime/in_unpack_generic.c (internal_unpack): Likewise.
From-SVN: r257195
Diffstat (limited to 'libgfortran/generated')
| -rw-r--r-- | libgfortran/generated/cshift1_16.c | 1 | ||||
| -rw-r--r-- | libgfortran/generated/cshift1_4.c | 1 | ||||
| -rw-r--r-- | libgfortran/generated/cshift1_8.c | 1 |
3 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/generated/cshift1_16.c b/libgfortran/generated/cshift1_16.c index e6921ac..44746b37 100644 --- a/libgfortran/generated/cshift1_16.c +++ b/libgfortran/generated/cshift1_16.c @@ -120,7 +120,6 @@ cshift1 (gfc_array_char * const restrict ret, { case GFC_DTYPE_LOGICAL_1: case GFC_DTYPE_INTEGER_1: - case GFC_DTYPE_DERIVED_1: cshift1_16_i1 ((gfc_array_i1 *)ret, (gfc_array_i1 *) array, h, pwhich); return; diff --git a/libgfortran/generated/cshift1_4.c b/libgfortran/generated/cshift1_4.c index 530aabc..4bb1c60 100644 --- a/libgfortran/generated/cshift1_4.c +++ b/libgfortran/generated/cshift1_4.c @@ -120,7 +120,6 @@ cshift1 (gfc_array_char * const restrict ret, { case GFC_DTYPE_LOGICAL_1: case GFC_DTYPE_INTEGER_1: - case GFC_DTYPE_DERIVED_1: cshift1_4_i1 ((gfc_array_i1 *)ret, (gfc_array_i1 *) array, h, pwhich); return; diff --git a/libgfortran/generated/cshift1_8.c b/libgfortran/generated/cshift1_8.c index 9d65c4a..1686e82 100644 --- a/libgfortran/generated/cshift1_8.c +++ b/libgfortran/generated/cshift1_8.c @@ -120,7 +120,6 @@ cshift1 (gfc_array_char * const restrict ret, { case GFC_DTYPE_LOGICAL_1: case GFC_DTYPE_INTEGER_1: - case GFC_DTYPE_DERIVED_1: cshift1_8_i1 ((gfc_array_i1 *)ret, (gfc_array_i1 *) array, h, pwhich); return; |