X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=libgfortran%2Fm4%2Fcshift1.m4;h=bf1c7478404dcbbf1107f7eb65166042b335b3cf;hb=b6019ab18c777ee68508ce0c7a289043d2f60bcd;hp=07241a506a655d5f374e153f9852d16df3dcac8e;hpb=cacb4a794f079490a56eb99294947ba5acb4269a;p=gcc.git

diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4
index 07241a506a6..bf1c7478404 100644
--- 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;