X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;ds=sidebyside;f=libgfortran%2Fgenerated%2Fin_unpack_r16.c;h=d2e557909cbbf931e5efa8a6eb6706793bfc4546;hb=edfaa9e32e6d661b3a582467caa17295d7f75288;hp=722dee76af587b1b32156a323b4c1860de502388;hpb=6e93a4c8a63318c29b830420bfeb61c65a9c5904;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/libgfortran/generated/in_unpack_r16.c b/libgfortran/generated/in_unpack_r16.c
index 722dee76af5..d2e557909cb 100644
--- a/libgfortran/generated/in_unpack_r16.c
+++ b/libgfortran/generated/in_unpack_r16.c
@@ -60,12 +60,12 @@ internal_unpack_r16 (gfc_array_r16 * d, const GFC_REAL_16 * src)
       stride[n] = d->dim[n].stride;
       extent[n] = d->dim[n].ubound + 1 - d->dim[n].lbound;
       if (extent[n] <= 0)
-        abort ();
+	return;
 
       if (dsize == stride[n])
-        dsize *= extent[n];
+	dsize *= extent[n];
       else
-        dsize = 0;
+	dsize = 0;
     }
 
   if (dsize != 0)