diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-05-27 19:00:50 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-05-27 19:00:50 +0000 |
| commit | f827a7d0f37dec39ed72a9d83dde5f1a4a0dcac3 (patch) | |
| tree | 0f4e3cf30375dce8669411231f6e316b54dc3f3e /libgfortran/runtime/in_pack_generic.c | |
| parent | 4c1dd580b3ee35309bc86ebce512eb18bb81324e (diff) | |
| download | gcc-f827a7d0f37dec39ed72a9d83dde5f1a4a0dcac3.tar.gz | |
in_pack_generic.c: Adjust copyright years.
2005-05-27 Thomas Koenig <Thomas.Koenig@online.de>
* runtime/in_pack_generic.c: Adjust copyright years.
(in_pack_generic): Change dimension of auxiliary arrays from
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
* runtime/in_unpack_generic.c: Adjust copyright years.
(in_unpack_generic): Change dimension of auxiliary arrays from
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
From-SVN: r100271
Diffstat (limited to 'libgfortran/runtime/in_pack_generic.c')
| -rw-r--r-- | libgfortran/runtime/in_pack_generic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c index e3e1c53c201..99fdb92436f 100644 --- a/libgfortran/runtime/in_pack_generic.c +++ b/libgfortran/runtime/in_pack_generic.c @@ -1,5 +1,5 @@ /* Generic helper function for repacking arrays. - Copyright 2003 Free Software Foundation, Inc. + Copyright 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -40,9 +40,9 @@ export_proto(internal_pack); void * internal_pack (gfc_array_char * source) { - index_type count[GFC_MAX_DIMENSIONS - 1]; - index_type extent[GFC_MAX_DIMENSIONS - 1]; - index_type stride[GFC_MAX_DIMENSIONS - 1]; + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; + index_type stride[GFC_MAX_DIMENSIONS]; index_type stride0; index_type dim; index_type ssize; |