[multiple changes]

[thirdparty/gcc.git] / libgfortran / intrinsics / cshift0.c

diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c
index 1b7dbc1cec9232d1a0cfd26d6a63de82c6a267f1..6adea76da3aea192e5a5c65181009c4f112ae46a 100644 (file)
--- a/libgfortran/intrinsics/cshift0.c
+++ b/libgfortran/intrinsics/cshift0.c
@@ -87,14 +87,17 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
       if (arraysize > 0)
        ret->data = internal_malloc_size (size * arraysize);
       else
-       {
-         ret->data = internal_malloc_size (1);
-         return;
-       }
+       ret->data = internal_malloc_size (1);
     }
-  
+  else if (unlikely (compile_options.bounds_check))
+    {
+      bounds_equal_extents ((array_t *) ret, (array_t *) array,
+                                "return value", "CSHIFT");
+    }
+
   if (arraysize == 0)
     return;
+
   type_size = GFC_DTYPE_TYPE_SIZE (array);
 
   switch(type_size)