diff options
author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-18 17:17:49 +0000 |
---|---|---|
committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-18 17:17:49 +0000 |
commit | a2ffc2c4a04938613f7f81cc3b91df0cbab40d51 (patch) | |
tree | 77600099ead49fd0e45bb06c7976fec0c72c9dd4 /libgfortran/intrinsics/pack_generic.c | |
parent | f8d967529bbc09f931bf7ab020fb540264a4b5f0 (diff) | |
download | ppe42-gcc-a2ffc2c4a04938613f7f81cc3b91df0cbab40d51.tar.gz ppe42-gcc-a2ffc2c4a04938613f7f81cc3b91df0cbab40d51.zip |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117857 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/pack_generic.c')
-rw-r--r-- | libgfortran/intrinsics/pack_generic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index f07b5aac905..27a22ec8d54 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -41,7 +41,7 @@ Boston, MA 02110-1301, USA. */ Description: Pack an array into an array of rank one under the control of a mask. - Class: Transformational fucntion. + Class: Transformational function. Arguments: ARRAY may be of any type. It shall not be scalar. @@ -171,7 +171,7 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array, and increment the next dimension. */ count[n] = 0; /* We could precalculate this product, but this is a - less frequently used path so proabably not worth + less frequently used path so probably not worth it. */ m -= mstride[n] * extent[n]; n++; @@ -230,7 +230,7 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array, 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. */ sptr -= sstride[n] * extent[n]; mptr -= mstride[n] * extent[n]; n++; @@ -402,7 +402,7 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char *array, increment the next dimension. */ count[n] = 0; /* We could precalculate these products, but this is a - less frequently used path so proabably not worth it. */ + less frequently used path so probably not worth it. */ sptr -= sstride[n] * extent[n]; n++; if (n >= dim) |