diff options
| author | domob <domob@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-01-21 13:34:55 +0000 |
|---|---|---|
| committer | domob <domob@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-01-21 13:34:55 +0000 |
| commit | edfaa9e32e6d661b3a582467caa17295d7f75288 (patch) | |
| tree | b1031584e4fe3d17c0b6289ff1e3eb0c4072334d /libgfortran/generated/in_unpack_c10.c | |
| parent | 6e93a4c8a63318c29b830420bfeb61c65a9c5904 (diff) | |
| download | gcc-edfaa9e32e6d661b3a582467caa17295d7f75288.tar.gz | |
2009-01-21 Daniel Kraft <d@domob.eu>
* trans-stmt.c (gfc_conv_elemental_dependencies): Cleaned up comment.
2009-01-21 Daniel Kraft <d@domob.eu>
PR fortran/38887
* runtime/in_unpack_generic.c (internal_unpack): Return instead of
abort when called with empty array.
* m4/in_unpack.m4: Ditto.
* generated/in_unpack_i1.c: Regenerated.
* generated/in_unpack_i2.c: Regenerated.
* generated/in_unpack_i4.c: Regenerated.
* generated/in_unpack_i8.c: Regenerated.
* generated/in_unpack_i16.c: Regenerated.
* generated/in_unpack_r4.c: Regenerated.
* generated/in_unpack_r8.c: Regenerated.
* generated/in_unpack_r10.c: Regenerated.
* generated/in_unpack_r16.c: Regenerated.
* generated/in_unpack_c4.c: Regenerated.
* generated/in_unpack_c8.c: Regenerated.
* generated/in_unpack_c10.c: Regenerated.
* generated/in_unpack_c16.c: Regenerated.
2009-01-21 Daniel Kraft <d@domob.eu>
PR fortran/38887
* gfortran.dg/mvbits_5.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@143541 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/in_unpack_c10.c')
| -rw-r--r-- | libgfortran/generated/in_unpack_c10.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/in_unpack_c10.c b/libgfortran/generated/in_unpack_c10.c index 2d971bf14cc..930cfae6dca 100644 --- a/libgfortran/generated/in_unpack_c10.c +++ b/libgfortran/generated/in_unpack_c10.c @@ -60,12 +60,12 @@ internal_unpack_c10 (gfc_array_c10 * d, const GFC_COMPLEX_10 * 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) |