X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fruntime%2Fin_unpack_generic.c;h=7c14355b80907b89dfdda030c74216fa5d829f5b;hp=8ca0fa5349224d7c01518519817114a6abb908f4;hb=a2ffc2c4a04938613f7f81cc3b91df0cbab40d51;hpb=f8d967529bbc09f931bf7ab020fb540264a4b5f0

diff --git a/libgfortran/runtime/in_unpack_generic.c b/libgfortran/runtime/in_unpack_generic.c
index 8ca0fa53492..7c14355b809 100644
--- a/libgfortran/runtime/in_unpack_generic.c
+++ b/libgfortran/runtime/in_unpack_generic.c
@@ -136,7 +136,7 @@ internal_unpack (gfc_array_char * d, const void * s)
              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.  */
           dest -= stride[n] * extent[n] * size;
           n++;
           if (n == dim)