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-06-21 Thomas Koenig <tkoenig@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
generated
/
in_unpack_c10.c
diff --git
a/libgfortran/generated/in_unpack_c10.c
b/libgfortran/generated/in_unpack_c10.c
index
46ce8d4
..
bcac6e7
100644
(file)
--- a/
libgfortran/generated/in_unpack_c10.c
+++ b/
libgfortran/generated/in_unpack_c10.c
@@
-52,8
+52,8
@@
internal_unpack_c10 (gfc_array_c10 * d, const GFC_COMPLEX_10 * src)
for (n = 0; n < dim; n++)
{
count[n] = 0;
- stride[n] =
d->dim[n].stride
;
- extent[n] =
d->dim[n].ubound + 1 - d->dim[n].lbound
;
+ stride[n] =
GFC_DESCRIPTOR_STRIDE(d,n)
;
+ extent[n] =
GFC_DESCRIPTOR_EXTENT(d,n)
;
if (extent[n] <= 0)
return;