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
/
generated
/
in_unpack_r16.c
diff --git
a/libgfortran/generated/in_unpack_r16.c
b/libgfortran/generated/in_unpack_r16.c
index
722dee7
..
d2e5579
100644
(file)
--- 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)
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;
}
if (dsize != 0)
}
if (dsize != 0)