Fix "tailing" typo.
gcc/fortran/ChangeLog: * intrinsic.texi: Fix typo. * trans-expr.c (gfc_trans_pointer_assignment): Likewise. gcc/ChangeLog: * genautomata.c (create_automata): Fix typo. libgfortran/ChangeLog: * intrinsics/chmod.c (chmod_internal): Fix typo. * io/transfer.c (read_sf): Likewise. libquadmath/ChangeLog: * libquadmath.texi: Fix typo. gcc/testsuite/ChangeLog: * gcc.dg/format/strfmon-1.c: Fix typo. * gfortran.dg/char4-subscript.f90: Likewise.
This commit is contained in:
parent
4db34072d5
commit
48aa5c6003
8 changed files with 8 additions and 8 deletions
|
@ -502,7 +502,7 @@ Inquiry function
|
|||
@item @emph{Arguments}:
|
||||
@multitable @columnfractions .15 .70
|
||||
@item @var{NAME} @tab Scalar @code{CHARACTER} of default kind with the
|
||||
file name. Tailing blank are ignored unless the character @code{achar(0)}
|
||||
file name. Trailing blank are ignored unless the character @code{achar(0)}
|
||||
is present, then all characters up to and excluding @code{achar(0)} are
|
||||
used as file name.
|
||||
@item @var{MODE} @tab Scalar @code{CHARACTER} of default kind with the
|
||||
|
|
|
@ -9513,7 +9513,7 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2)
|
|||
{
|
||||
gfc_add_data_component (expr2);
|
||||
/* The following is required as gfc_add_data_component doesn't
|
||||
update ts.type if there is a tailing REF_ARRAY. */
|
||||
update ts.type if there is a trailing REF_ARRAY. */
|
||||
expr2->ts.type = BT_DERIVED;
|
||||
}
|
||||
|
||||
|
|
|
@ -6787,7 +6787,7 @@ create_automata (void)
|
|||
finish_regexp_representation calls. */
|
||||
|
||||
/* This recursive function forms string representation of regexp
|
||||
(without tailing '\0'). */
|
||||
(without trailing '\0'). */
|
||||
static void
|
||||
form_regexp (regexp_t regexp)
|
||||
{
|
||||
|
|
|
@ -57,7 +57,7 @@ foo (char *s, size_t m, double d, long double ld)
|
|||
strfmon (s, m, "%n%n", d); /* { dg-warning "matching" "too few args" } */
|
||||
strfmon (s, m, ""); /* { dg-warning "zero-length" "empty" } */
|
||||
strfmon (s, m, NULL); /* { dg-warning "null" "null format string" } */
|
||||
strfmon (s, m, "%"); /* { dg-warning "trailing" "tailing %" } */
|
||||
strfmon (s, m, "%"); /* { dg-warning "trailing" "trailing %" } */
|
||||
strfmon (s, m, "%n\0", d); /* { dg-warning "embedded" "embedded NUL" } */
|
||||
strfmon (s, m, "%^^n", d); /* { dg-warning "repeated" "repeated flag" } */
|
||||
}
|
||||
|
|
|
@ -22,7 +22,7 @@ if (ichar(var%str2(5:5)) /= int(Z'1F608')) stop 2
|
|||
deallocate(var%str2)
|
||||
end
|
||||
|
||||
! Note: the last '\x00' is regarded as string terminator, hence, the tailing \0 byte is not in the dump
|
||||
! Note: the last '\x00' is regarded as string terminator, hence, the trailing \0 byte is not in the dump
|
||||
|
||||
! { dg-final { scan-tree-dump { \(\*var\.str2\)\[1\]{lb: 1 sz: 4} = "(d\\x00\\x00|\\x00\\x00\\x00d)"\[1\]{lb: 1 sz: 4};} "original" } }
|
||||
! { dg-final { scan-tree-dump { __builtin_memmove \(\(void \*\) &\(\*var.str2\)\[2\]{lb: 1 sz: 4}, \(void \*\) &"(e\\x00\\x00\\x00f\\x00\\x00|\\x00\\x00\\x00e\\x00\\x00\\x00f)"\[1\]{lb: 1 sz: 4}, 8\);} "original" } }
|
||||
|
|
|
@ -271,7 +271,7 @@ chmod_internal (char *file, char *mode, gfc_charlen_type mode_len)
|
|||
part = 3;
|
||||
break;
|
||||
|
||||
/* Tailing blanks are valid in Fortran. */
|
||||
/* Trailing blanks are valid in Fortran. */
|
||||
case ' ':
|
||||
for (i++; i < mode_len; i++)
|
||||
if (mode[i] != ' ')
|
||||
|
|
|
@ -491,7 +491,7 @@ read_sf (st_parameter_dt *dtp, size_t *length)
|
|||
|
||||
If the read is short, then it is because the current record does not
|
||||
have enough data to satisfy the read request and the file was
|
||||
opened with PAD=YES. The caller must assume tailing spaces for
|
||||
opened with PAD=YES. The caller must assume trailing spaces for
|
||||
short reads. */
|
||||
|
||||
void *
|
||||
|
|
|
@ -309,7 +309,7 @@ the format.
|
|||
@item @emph{Arguments}:
|
||||
@multitable @columnfractions .15 .70
|
||||
@item @var{s} @tab output string
|
||||
@item @var{size} @tab byte size of the string, including tailing NUL
|
||||
@item @var{size} @tab byte size of the string, including trailing NUL
|
||||
@item @var{format} @tab conversion specifier string
|
||||
@end multitable
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue