From 1e7864e44136433004d5c8adb767dddf90830cb4 Mon Sep 17 00:00:00 2001
From: bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 6 May 2008 07:25:24 +0000
Subject: 2008-05-06 Basile Starynkevitch <basile@starynkevitch.net> MELT
branch merged with trunk r134973
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@134974 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/generated/reshape_c4.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'libgfortran/generated/reshape_c4.c')
diff --git a/libgfortran/generated/reshape_c4.c b/libgfortran/generated/reshape_c4.c
index fd33a954a06..4253b066815 100644
--- a/libgfortran/generated/reshape_c4.c
+++ b/libgfortran/generated/reshape_c4.c
@@ -131,7 +131,7 @@ reshape_c4 (gfc_array_c4 * const restrict ret,
rstride[n] = ret->dim[dim].stride;
rextent[n] = ret->dim[dim].ubound + 1 - ret->dim[dim].lbound;
if (rextent[n] < 0)
- rextent[n] == 0;
+ rextent[n] = 0;
if (rextent[n] != shape_data[dim])
runtime_error ("shape and target do not conform");
--
cgit v1.2.1