OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2009-01-21 Daniel Kraft <d@domob.eu>
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
runtime
/
in_unpack_generic.c
diff --git
a/libgfortran/runtime/in_unpack_generic.c
b/libgfortran/runtime/in_unpack_generic.c
index
81d1f04
..
b15f4dd
100644
(file)
--- a/
libgfortran/runtime/in_unpack_generic.c
+++ b/
libgfortran/runtime/in_unpack_generic.c
@@
-178,12
+178,12
@@
internal_unpack (gfc_array_char * d, const void * s)
stride[n] = d->dim[n].stride;
extent[n] = d->dim[n].ubound + 1 - d->dim[n].lbound;
if (extent[n] <= 0)
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])
if (dsize == stride[n])
-
dsize *= extent[n];
+ dsize *= extent[n];
else
else
-
dsize = 0;
+ dsize = 0;
}
src = s;
}
src = s;