aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/runtime/in_pack_generic.c
diff options
context:
space:
mode:
authorTobias Burnus <burnus@net-b.de>2006-10-18 19:17:49 +0200
committerTobias Burnus <burnus@gcc.gnu.org>2006-10-18 19:17:49 +0200
commit8b6dba81f050bea9220007f219c0a753af782262 (patch)
tree77600099ead49fd0e45bb06c7976fec0c72c9dd4 /libgfortran/runtime/in_pack_generic.c
parent8e76c2bf138ad82a0b66a75a12e9529ced0930d8 (diff)
downloadgcc-8b6dba81f050bea9220007f219c0a753af782262.zip
gcc-8b6dba81f050bea9220007f219c0a753af782262.tar.gz
gcc-8b6dba81f050bea9220007f219c0a753af782262.tar.bz2
in_pack.m4: Fixed a typo.
2006-10-16 Tobias Burnus <burnus@net-b.de> * m4/in_pack.m4: Fixed a typo. * m4/iforeach.m4: Fixed a typo. * m4/eoshift1.m4: Fixed a typo. * m4/eoshift3.m4: Fixed a typo. * m4/cshift1.m4: Fixed a typo. * m4/in_unpack.m4: Fixed a typo. * m4/reshape.m4: Fixed a typo. * m4/ifunction.m4: Fixed a typo. * runtime/environ.c: Fixed a typo. * runtime/in_pack_generic.c: Fixed a typo. * runtime/in_unpack_generic.c: Fixed a typo. * runtime/memory.c: Fixed a typo. * intrinsics/cshift0.c: Fixed a typo. * intrinsics/cpu_time.c: Fixed a typo. * intrinsics/pack_generic.c: Fixed a typo. * intrinsics/unpack_generic.c: Fixed a typo. * intrinsics/eoshift0.c: Fixed a typo. * intrinsics/eoshift2.c: Fixed a typo. * intrinsics/reshape_generic.c: Fixed a typo. * io/open.c: Fixed a typo. * io/list_read.c: Fixed a typo. * io/io.h: Fixed a typo. * io/transfer.c: Fixed a typo. * io/write.c: Fixed a typo. From-SVN: r117857
Diffstat (limited to 'libgfortran/runtime/in_pack_generic.c')
-rw-r--r--libgfortran/runtime/in_pack_generic.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c
index 1536db1..7f02b97 100644
--- a/libgfortran/runtime/in_pack_generic.c
+++ b/libgfortran/runtime/in_pack_generic.c
@@ -138,7 +138,7 @@ internal_pack (gfc_array_char * source)
the next dimension. */
count[n] = 0;
/* We could precalculate these products, but this is a less
- frequently used path so proabably not worth it. */
+ frequently used path so probably not worth it. */
src -= stride[n] * extent[n] * size;
n++;
if (n == dim)