2008-04-25 Thomas Koenig <tkoenig@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / libgfortran / generated / reshape_r4.c

diff --git a/libgfortran/generated/reshape_r4.c b/libgfortran/generated/reshape_r4.c
index 0323a72..112dbf2 100644 (file)
--- a/libgfortran/generated/reshape_r4.c
+++ b/libgfortran/generated/reshape_r4.c
@@ -131,7 +131,7 @@ reshape_r4 (gfc_array_r4 * 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");