diff options
Diffstat (limited to 'libgfortran/generated/cshift1_4.c')
| -rw-r--r-- | libgfortran/generated/cshift1_4.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/generated/cshift1_4.c b/libgfortran/generated/cshift1_4.c index 1b3d07f2942..f4a357e6220 100644 --- a/libgfortran/generated/cshift1_4.c +++ b/libgfortran/generated/cshift1_4.c @@ -55,7 +55,7 @@ cshift1 (gfc_array_char * const restrict ret, index_type soffset; const char *sptr; const char *src; - /* h.* indicates the array. */ + /* h.* indicates the shift array. */ index_type hstride[GFC_MAX_DIMENSIONS]; index_type hstride0; const GFC_INTEGER_4 *hptr; @@ -144,7 +144,7 @@ cshift1 (gfc_array_char * const restrict ret, while (rptr) { - /* Do the for this dimension. */ + /* Do the shift for this dimension. */ sh = *hptr; sh = (div (sh, len)).rem; if (sh < 0) |