mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-23 19:03:59 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fortran: Fix typos

Browse Source 
gcc/fortran/ChangeLog:

	* array.cc (gfc_ref_dimen_size): Fix comment typo.
	* dump-parse-tree.cc (gfc_dump_c_prototypes): Likewise.
	* frontend-passes.cc (cfe_code): Likewise.
	* gfortran.texi: Likewise.
	* resolve.cc (generate_component_assignments): Likewise.
	* simplify.cc (gfc_simplify_this_image): Likewise.
	* trans-expr.cc (trans_scalar_class_assign,
	gfc_maybe_dereference_var): Likewise.
	* intrinsic.texi: Remove word duplication.
	* invoke.texi: Likewise.
This commit is contained in:
Tobias Burnus 2022-03-07 17:20:52 +01:00
parent a86ca83a1b
commit e3ca3e7993
9 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/array.cc
View File

@ -2420,7 +2420,7 @@ gfc_ref_dimen_size (gfc_array_ref *ar, int dimen, mpz_t *result, mpz_t *end)
gfc_free_expr(stride_expr);
}
/* Calculate the number of elements via gfc_dep_differce, but only if
/* Calculate the number of elements via gfc_dep_difference, but only if
start and end are both supplied in the reference or the array spec.
This is to guard against strange but valid code like

2
gcc/fortran/dump-parse-tree.cc
View File

@ -3543,7 +3543,7 @@ gfc_dump_c_prototypes (gfc_namespace *ns, FILE *file)
gfc_traverse_ns (ns, write_interop_decl);
}
/* Loop over all global symbols, writing out their declrations. */
/* Loop over all global symbols, writing out their declarations. */
void
gfc_dump_external_c_prototypes (FILE * file)

2
gcc/fortran/frontend-passes.cc
View File

@ -974,7 +974,7 @@ cfe_code (gfc_code **c, int *walk_subtrees, void *data ATTRIBUTE_UNUSED)
changed_statement = NULL;
/* Do not do anything inside a WHERE statement; scalar assignments, BLOCKs
and allocation on assigment are prohibited inside WHERE, and finally
and allocation on assignment are prohibited inside WHERE, and finally
masking an expression would lead to wrong-code when replacing
WHERE (a>0)

2
gcc/fortran/gfortran.texi
View File

@ -1093,7 +1093,7 @@ variable.
The maximum number of bytes of user data in a subrecord is 2147483639
(2 GiB - 9) for a four-byte record marker. This limit can be lowered
with the @option{-fmax-subrecord-length} option, altough this is
with the @option{-fmax-subrecord-length} option, although this is
rarely useful. If the length of a logical record exceeds this limit,
the data is distributed among several subrecords.

4
gcc/fortran/intrinsic.texi
View File

@ -12897,7 +12897,7 @@ end program real_kinds
@table @asis
@item @emph{Description}:
@code{SET_EXPONENT(X, I)} returns the real number whose fractional part
is that that of @var{X} and whose exponent part is @var{I}.
is that of @var{X} and whose exponent part is @var{I}.
@item @emph{Standard}:
Fortran 90 and later
@ -12917,7 +12917,7 @@ Elemental function
@item @emph{Return value}:
The return value is of the same type and kind as @var{X}.
The real number whose fractional part
is that that of @var{X} and whose exponent part if @var{I} is returned;
is that of @var{X} and whose exponent part if @var{I} is returned;
it is @code{FRACTION(X) * RADIX(X)**I}.
@item @emph{Example}:

4
gcc/fortran/invoke.texi
View File

@ -1858,7 +1858,7 @@ except when optimizing for size via @option{-Os}. If the code
contains a very large number of argument that have to be packed, code
size and also compilation time may become excessive. If that is the
case, it may be better to disable this option. Instances of packing
can be found by using by using @option{-Warray-temporaries}.
can be found by using @option{-Warray-temporaries}.
@item -fexternal-blas
@opindex @code{fexternal-blas}
@ -2068,7 +2068,7 @@ does not generate prototypes for @code{BIND(C)} procedures, use
@option{-fc-prototypes} for that.
The generated prototypes may need inclusion of an appropriate
header, such as as @code{<stdint.h>} or @code{<stdlib.h>}.
header, such as @code{<stdint.h>} or @code{<stdlib.h>}.
This is primarily meant for legacy code to ensure that existing C
bindings match what @command{gfortran} emits. The generated C

2
gcc/fortran/resolve.cc
View File

@ -11539,7 +11539,7 @@ generate_component_assignments (gfc_code **code, gfc_namespace *ns)
|| comp1->attr.proc_pointer)
continue;
/* Make an assigment for this component. */
/* Make an assignment for this component. */
this_code = build_assignment (EXEC_ASSIGN,
(*code)->expr1, (*code)->expr2,
comp1, comp2, (*code)->loc);

2
gcc/fortran/simplify.cc
View File

@ -8424,7 +8424,7 @@ gfc_simplify_this_image (gfc_expr *coarray, gfc_expr *dim,
return NULL;
/* If no coarray argument has been passed or when the first argument
is actually a distance argment. */
is actually a distance argument. */
if (coarray == NULL || !gfc_is_coarray (coarray))
{
gfc_expr *result;

4
gcc/fortran/trans-expr.cc
View File

@ -1777,7 +1777,7 @@ trans_scalar_class_assign (stmtblock_t *block, gfc_se *lse, gfc_se *rse)
bool not_call_expr = TREE_CODE (rse->expr) != CALL_EXPR;
bool not_lhs_array_type;
/* Temporaries arising from depencies in assignment get cast as a
/* Temporaries arising from dependencies in assignment get cast as a
character type of the dynamic size of the rhs. Use the vptr copy
for this case. */
tmp = TREE_TYPE (lse->expr);
@ -2934,7 +2934,7 @@ gfc_maybe_dereference_var (gfc_symbol *sym, tree var, bool descriptor_only_p,
|| CLASS_DATA (sym)->attr.class_pointer))
var = build_fold_indirect_ref_loc (input_location, var);
/* And the case where a non-dummy, non-result, non-function,
non-allotable and non-pointer classarray is present. This case was
non-allocable and non-pointer classarray is present. This case was
previously covered by the first if, but with introducing the
condition !is_classarray there, that case has to be covered
explicitly. */