commit 7ebd4a1d61993c0a75e9ff3098aded21ef04a4da
Author: Tobias Burnus <tobias@codesourcery.com>
Date: Fri Apr 28 09:23:18 2023 +0200
Fortran: Fix (mostly) comment typos
Only other changes are fixing the variable name a(b)breviated_modproc_decl
and a few typos in gfortran.texi.
gcc/fortran/ChangeLog:
* gfortran.texi: Fix typos.
* decl.cc: Fix typos in comments and in a variable name.
* arith.cc: Fix comment typos.
* check.cc: Likewise.
* class.cc: Likewise.
* dependency.cc: Likewise.
* expr.cc: Likewise.
* frontend-passes.cc: Likewise.
* gfortran.h: Likewise.
* intrinsic.cc: Likewise.
* iresolve.cc: Likewise.
* match.cc: Likewise.
* module.cc: Likewise.
* primary.cc: Likewise.
* resolve.cc: Likewise.
* simplify.cc: Likewise.
* trans-array.cc: Likewise.
* trans-decl.cc: Likewise.
* trans-expr.cc: Likewise.
* trans-intrinsic.cc: Likewise.
* trans-openmp.cc: Likewise.
* trans-stmt.cc: Likewise.
@@ -1037 +1037 @@ gfc_arith_concat (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
- to get mismaching types here. */
+ to get mismatching types here. */
@@ -96 +96 @@ illegal_boz_arg (gfc_expr *x)
-/* Some precedures take two arguments such that both cannot be BOZ. */
+/* Some procedures take two arguments such that both cannot be BOZ. */
@@ -1634 +1634 @@ finalizer_insert_packed_call (gfc_code *block, gfc_finalizer *fini,
- derived type "derived". The function first calls the approriate FINAL
+ derived type "derived". The function first calls the appropriate FINAL
@@ -1084 +1084 @@ char_len_param_value (gfc_expr **expr, bool *deferred)
- /* If gfortran gets an EXPR_OP, try to simplifiy it. This catches things
+ /* If gfortran gets an EXPR_OP, try to simplify it. This catches things
@@ -1579 +1579 @@ gfc_verify_c_interop_param (gfc_symbol *sym)
- length of 1. However, as an argument they are also iteroperable
+ length of 1. However, as an argument they are also interoperable
@@ -2850 +2850 @@ variable_decl (int elem)
- /* The dummy arguments and result of the abreviated form of MODULE
+ /* The dummy arguments and result of the abbreviated form of MODULE
@@ -3120 +3120 @@ variable_decl (int elem)
- /* Before adding a possible initilizer, do a simple check for compatibility
+ /* Before adding a possible initializer, do a simple check for compatibility
@@ -8351 +8351 @@ gfc_match_end (gfc_statement *st)
- bool abreviated_modproc_decl = false;
+ bool abbreviated_modproc_decl = false;
@@ -8375 +8375 @@ gfc_match_end (gfc_statement *st)
- abreviated_modproc_decl = gfc_state_stack->previous->sym
+ abbreviated_modproc_decl = gfc_state_stack->previous->sym
@@ -8383,2 +8383,2 @@ gfc_match_end (gfc_statement *st)
- if (!abreviated_modproc_decl)
- abreviated_modproc_decl = gfc_current_block ()
+ if (!abbreviated_modproc_decl)
+ abbreviated_modproc_decl = gfc_current_block ()
@@ -8398 +8398 @@ gfc_match_end (gfc_statement *st)
- if (!abreviated_modproc_decl)
+ if (!abbreviated_modproc_decl)
@@ -8407 +8407 @@ gfc_match_end (gfc_statement *st)
- if (!abreviated_modproc_decl)
+ if (!abbreviated_modproc_decl)
@@ -8536 +8536 @@ gfc_match_end (gfc_statement *st)
- abreviated_modproc_decl ? "END PROCEDURE"
+ abbreviated_modproc_decl ? "END PROCEDURE"
@@ -8554 +8554 @@ gfc_match_end (gfc_statement *st)
- gfc_error ("Expecting %s statement at %L", abreviated_modproc_decl
+ gfc_error ("Expecting %s statement at %L", abbreviated_modproc_decl
@@ -546 +546 @@ gfc_dep_difference (gfc_expr *e1, gfc_expr *e2, mpz_t *result)
- /* Inizialize tentatively, clear if we don't return anything. */
+ /* Initialize tentatively, clear if we don't return anything. */
@@ -3659 +3659 @@ gfc_check_conformance (gfc_expr *op1, gfc_expr *op2, const char *optype_msgid, .
- coarray call, then the convert is done by the coarray routine implictly and
+ coarray call, then the convert is done by the coarray routine implicitly and
@@ -427 +427 @@ copy_walk_reduction_arg (gfc_constructor *c, gfc_expr *fn)
-/* Callback function for optimzation of reductions to scalars. Transform ANY
+/* Callback function for optimization of reductions to scalars. Transform ANY
@@ -429 +429 @@ copy_walk_reduction_arg (gfc_constructor *c, gfc_expr *fn)
- correspondingly. Handly only the simple cases without MASK and DIM. */
+ correspondingly. Handle only the simple cases without MASK and DIM. */
@@ -1458 +1458 @@ simplify_io_impl_do (gfc_code **code, int *walk_subtrees,
- flag_frontend_optimize and flag_fronend_loop_interchange are
+ flag_frontend_optimize and flag_frontend_loop_interchange are
@@ -1919 +1919 @@ typedef struct gfc_symbol
- abreviated declaration in a submodule. */
+ abbreviated declaration in a submodule. */
@@ -2194 +2194 @@ typedef struct gfc_namespace
- /* Set to 1 if the namespace uses "IMPLICT NONE (export)". */
+ /* Set to 1 if the namespace uses "IMPLICIT NONE (export)". */
@@ -1410 +1410 @@ descriptors in @code{FORMAT} statements. A comma with no following format
-decriptor is permited if the @option{-fdec-blank-format-item} is given on
+descriptor is permitted if the @option{-fdec-blank-format-item} is given on
@@ -3896 +3896 @@ caf_deregister_t;
-Allows to specifiy the type of deregistration of a coarray object. The
+Allows to specify the type of deregistration of a coarray object. The
@@ -4861 +4861 @@ The statement is an image-control statement but does not imply sync memory.
-Still, all preceeding push communications of this image to the specified
+Still, all preceding push communications of this image to the specified
@@ -4906 +4906 @@ The statement is an image-control statement but does not imply sync memory.
-Still, all preceeding push communications of this image to the specified
+Still, all preceding push communications of this image to the specified
@@ -3313 +3313 @@ add_functions (void)
- /* The next of intrinsic subprogram are the degree trignometric functions.
+ /* The next of intrinsic subprogram are the degree trigonometric functions.
@@ -3107 +3107 @@ gfc_resolve_trim (gfc_expr *f, gfc_expr *string)
-/* Resolve the degree trignometric functions. This amounts to setting
+/* Resolve the degree trigonometric functions. This amounts to setting
@@ -5739 +5739 @@ gfc_match_equivalence (void)
- MATCH_NO for a variable of the form equivalencej. */
+ MATCH_NO for a variable of the form equivalence. */
@@ -2422 +2422 @@ mio_symbol_attribute (symbol_attribute *attr)
- /* ... intentionally omitted here; it's only unsed internally. */
+ /* ... intentionally omitted here; it's only used internally. */
@@ -759,2 +759,2 @@ done:
- trailing digits, which may cause the appearance of higher pecision
- than the kind kan support.
+ trailing digits, which may cause the appearance of higher precision
+ than the kind can support.
@@ -3063 +3063 @@ build_actual_constructor (gfc_structure_ctor_component **comp_head,
- /* ....(Preceeding sentence) If a component with default
+ /* ....(Preceding sentence) If a component with default
@@ -5886 +5886 @@ resolve_variable (gfc_expr *e)
- or when that is not present, which may happend for polymorphic
+ or when that is not present, which may happened for polymorphic
@@ -6105 +6105 @@ resolve_procedure:
- explcitly to be external. Here, the old symbol is changed
+ explicitly to be external. Here, the old symbol is changed
@@ -11137 +11137 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns)
- to non-character variables. This not permited for nonconstant
+ to non-character variables. This not permitted for nonconstant
@@ -4133 +4133 @@ simplify_bound_dim (gfc_expr *array, gfc_expr *kind, int d, int upper,
- the result isn't dependent on the array emptyness. */
+ the result isn't dependent on the array emptiness. */
@@ -4137 +4137 @@ simplify_bound_dim (gfc_expr *array, gfc_expr *kind, int d, int upper,
- /* Array emptyness can't be determined, we can't simplify. */
+ /* Array emptiness can't be determined, we can't simplify. */
@@ -8591 +8591 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, bool g77,
- /* When optmizing, we can use gfc_conv_subref_array_arg for
+ /* When optimizing, we can use gfc_conv_subref_array_arg for
@@ -11196 +11196 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo *loop,
-/* Initialize class descriptor's TKR infomation. */
+/* Initialize class descriptor's TKR information. */
@@ -7624 +7624 @@ gfc_generate_function_code (gfc_namespace * ns)
- /* Character(len=*) explict-size/assumed-size array. */
+ /* Character(len=*) explicit-size/assumed-size array. */
@@ -5599 +5599 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr *e, gfc_symbol *fsym)
- /* Create array decriptor and set version, rank, attribute, type. */
+ /* Create array descriptor and set version, rank, attribute, type. */
@@ -5753 +5753 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr *e, gfc_symbol *fsym)
- an CFI descriptor. Use the type in the descritor as it provide
+ an CFI descriptor. Use the type in the descriptor as it provide
@@ -8156 +8156 @@ gfc_trans_string_copy (stmtblock_t * block, tree dlength, tree dest,
- postive number and triggers the warning in BUILTIN_MEMSET. Fixing
+ positive number and triggers the warning in BUILTIN_MEMSET. Fixing
@@ -4129 +4129 @@ gfc_conv_intrinsic_minmax (gfc_se * se, gfc_expr * expr, enum tree_code op)
- There are valid usecase for returning either one, but the
+ There are valid use case for returning either one, but the
@@ -86 +86 @@ gfc_omp_is_optional_argument (const_tree decl)
- themselve are returned as tree - or a NULL_TREE otherwise. Those decls are
+ themselves are returned as tree - or a NULL_TREE otherwise. Those decls are
@@ -6071 +6071 @@ gfc_add_clause_implicitly (gfc_omp_clauses *clauses_out,
- /* For parallel do, GCC puts firstprivatee/lastprivate
+ /* For parallel do, GCC puts firstprivate/lastprivate
@@ -6638 +6638 @@ gfc_split_omp_clauses (gfc_code *code,
- and taskloop. The code below itereates over variables in the
+ and taskloop. The code below iterates over variables in the
@@ -473 +473 @@ gfc_trans_call (gfc_code * code, bool dependency_check,
- as temporaries are handled separatedly
+ as temporaries are handled separately
@@ -2296 +2296 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block)
- /* Deferred strings are dealt with in the preceeding. */
+ /* Deferred strings are dealt with in the preceding. */
@@ -4106 +4106 @@ gfc_trans_forall_loop (forall_info *forall_tmp, tree body,
- the autoparallelizer can hande this. */
+ the autoparallelizer can handle this. */
@@ -6354 +6354 @@ gfc_trans_allocate (gfc_code * code)
- simplfy computation of array properties. */
+ simplify computation of array properties. */
@@ -6629 +6629 @@ gfc_trans_allocate (gfc_code * code)
- namespace to prevent accidently modifying a colliding
+ namespace to prevent accidentaly modifying a colliding