[committed] Fortran: Fix (mostly) comment typos

[committed] Fortran: Fix (mostly) comment typos

[Tobias Burnus]

[-- Attachment #1: Type: text/plain, Size: 344 bytes --]

Committed as r14-319-g7ebd4a1d61993c0a75e9ff3098aded21ef04a4da

Tobias
-----------------
Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634 München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht München, HRB 106955

[-- Attachment #2: committed.diff --]
[-- Type: text/x-patch, Size: 14947 bytes --]

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.

diff --git a/gcc/fortran/arith.cc b/gcc/fortran/arith.cc
index ddf9874671c..d1d814b3ae1 100644
--- a/gcc/fortran/arith.cc
+++ b/gcc/fortran/arith.cc
@@ -1037 +1037 @@ gfc_arith_concat (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-     to get mismaching types here.  */
+     to get mismatching types here.  */
diff --git a/gcc/fortran/check.cc b/gcc/fortran/check.cc
index 8c1ae8c2f00..b348bda6e6c 100644
--- a/gcc/fortran/check.cc
+++ b/gcc/fortran/check.cc
@@ -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.  */
diff --git a/gcc/fortran/class.cc b/gcc/fortran/class.cc
index bffc0ffff3a..9d0c802b867 100644
--- a/gcc/fortran/class.cc
+++ b/gcc/fortran/class.cc
@@ -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
diff --git a/gcc/fortran/decl.cc b/gcc/fortran/decl.cc
index 233bf244d62..9c4b40d4ac4 100644
--- a/gcc/fortran/decl.cc
+++ b/gcc/fortran/decl.cc
@@ -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
diff --git a/gcc/fortran/dependency.cc b/gcc/fortran/dependency.cc
index 9117825ee6e..a648d5c7903 100644
--- a/gcc/fortran/dependency.cc
+++ b/gcc/fortran/dependency.cc
@@ -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.  */
diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc
index 02028f993fd..b19e3647aa0 100644
--- a/gcc/fortran/expr.cc
+++ b/gcc/fortran/expr.cc
@@ -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
diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc
index 90428982023..136a292807d 100644
--- a/gcc/fortran/frontend-passes.cc
+++ b/gcc/fortran/frontend-passes.cc
@@ -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
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index db77d24e8b5..a15ff90e228 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -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)".  */
diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi
index b96712987e1..7786d23265f 100644
--- a/gcc/fortran/gfortran.texi
+++ b/gcc/fortran/gfortran.texi
@@ -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
diff --git a/gcc/fortran/intrinsic.cc b/gcc/fortran/intrinsic.cc
index 1a26b7a571f..b5ef664eb33 100644
--- a/gcc/fortran/intrinsic.cc
+++ b/gcc/fortran/intrinsic.cc
@@ -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.
diff --git a/gcc/fortran/iresolve.cc b/gcc/fortran/iresolve.cc
index 8acad60a02b..7880aba63bb 100644
--- a/gcc/fortran/iresolve.cc
+++ b/gcc/fortran/iresolve.cc
@@ -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
diff --git a/gcc/fortran/match.cc b/gcc/fortran/match.cc
index 5eb6d0e1c1d..d59daf5a581 100644
--- a/gcc/fortran/match.cc
+++ b/gcc/fortran/match.cc
@@ -5739 +5739 @@ gfc_match_equivalence (void)
-     MATCH_NO for a variable of the form equivalencej.  */
+     MATCH_NO for a variable of the form equivalence.  */
diff --git a/gcc/fortran/module.cc b/gcc/fortran/module.cc
index 601497e0998..95fdda6b2aa 100644
--- a/gcc/fortran/module.cc
+++ b/gcc/fortran/module.cc
@@ -2422 +2422 @@ mio_symbol_attribute (symbol_attribute *attr)
-	  /* ... intentionally omitted here; it's only unsed internally.  */
+	  /* ... intentionally omitted here; it's only used internally.  */
diff --git a/gcc/fortran/primary.cc b/gcc/fortran/primary.cc
index 00d35a71770..077489ab96e 100644
--- a/gcc/fortran/primary.cc
+++ b/gcc/fortran/primary.cc
@@ -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
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 55d8e326a87..c3d508fb45d 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -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
diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc
index b65854c1021..7b0642126a9 100644
--- a/gcc/fortran/simplify.cc
+++ b/gcc/fortran/simplify.cc
@@ -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.  */
diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index e1725808033..785cf504816 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -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.  */
diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc
index 299764b08b2..18e2b8b78b4 100644
--- a/gcc/fortran/trans-decl.cc
+++ b/gcc/fortran/trans-decl.cc
@@ -7624 +7624 @@ gfc_generate_function_code (gfc_namespace * ns)
-	    /* Character(len=*) explict-size/assumed-size array. */
+	    /* Character(len=*) explicit-size/assumed-size array. */
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 09cdd9263c4..d902e8f3281 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -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
diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc
index 3cce9c0166e..e0c171d5f25 100644
--- a/gcc/fortran/trans-intrinsic.cc
+++ b/gcc/fortran/trans-intrinsic.cc
@@ -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
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index 4ff9c59df5c..71f71235756 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -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
diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc
index 776f98d08d9..589f200162a 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -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

Re: [committed] Fortran: Fix (mostly) comment typos

[Bernhard Reutner-Fischer]

On 28 April 2023 09:26:06 CEST, Tobias Burnus <tobias@codesourcery.com> wrote:
>Committed as r14-319-g7ebd4a1d61993c0a75e9ff3098aded21ef04a4da

 >  Only other changes are fixing the variable name a(b)breviated_modproc_decl

I think this is not good, I've mentioned it somewhere, i think, but I'll rename it.
thanks!