re PR fortran/37577 ([meta-bug] change internal array descriptor format for better...

[gcc.git] / libgfortran / m4 / cshift1.m4

diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4
index 07241a506a655d5f374e153f9852d16df3dcac8e..bf1c7478404dcbbf1107f7eb65166042b335b3cf 100644 (file)
--- a/libgfortran/m4/cshift1.m4
+++ b/libgfortran/m4/cshift1.m4
@@ -121,7 +121,6 @@ cshift1 (gfc_array_char * const restrict ret,
   {
     case GFC_DTYPE_LOGICAL_1:
     case GFC_DTYPE_INTEGER_1:
-    case GFC_DTYPE_DERIVED_1:
       cshift1_'atype_kind`_i1 ((gfc_array_i1 *)ret, (gfc_array_i1 *) array,
                        h, pwhich);
       return;