From b87be38a2a8cb0b5fbc44e46a84a97ec9fc7b6bd Mon Sep 17 00:00:00 2001
From: pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 30 Apr 2005 18:17:54 +0000
Subject: Fix matmul PR18857 and supply testcase

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99041 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgfortran/generated/all_l4.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'libgfortran/generated/all_l4.c')

diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c
index ddf9be1338e..84062e62327 100644
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -55,6 +55,9 @@ all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
   /* Make dim zero based to avoid confusion.  */
   dim = (*pdim) - 1;
   rank = GFC_DESCRIPTOR_RANK (array) - 1;
+
+  /* TODO:  It should be a front end job to correctly set the strides.  */
+
   if (array->dim[0].stride == 0)
     array->dim[0].stride = 1;
 
-- 
cgit v1.2.1