Fortran: Fix typos

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.

diff --git a/gcc/fortran/array.cc b/gcc/fortran/array.cc
index f1d92e00c981991e1310fb3bf808ad2a120c3401..eb9ed8580a076faef2c4fcf6630eb23556b00b0a 100644 (file)
--- a/gcc/fortran/array.cc
+++ b/gcc/fortran/array.cc
@@ -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
 

diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc
index 322416e65567597cb93cfe79cfcf4a92920b7e0c..3635460bffd339411252ca6946e616c088c09451 100644 (file)
--- a/gcc/fortran/dump-parse-tree.cc
+++ b/gcc/fortran/dump-parse-tree.cc
@@ -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)

diff --git a/gcc/fortran/frontend-passes.cc b/gcc/fortran/frontend-passes.cc
index 22f1bb56a2b7fef02a460ef8880d91418d2bf86d..4033f27df99d15aab86ff6efcbc544882fdb3701 100644 (file)
--- a/gcc/fortran/frontend-passes.cc
+++ b/gcc/fortran/frontend-passes.cc
@@ -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)

diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi
index 2a55676791bc73a85311d2b8493e469a99bfd484..f8737f4d323b8518b0054bcf6144fcaea3e15a19 100644 (file)
--- a/gcc/fortran/gfortran.texi
+++ b/gcc/fortran/gfortran.texi
@@ -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.
 

diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index f182cacb4b8685c26221d8a9787ac12d327a98fc..e3cd82799600f3beb6fabaad19a78bfb56aac8df 100644 (file)
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -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}:

diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi
index 6435dc4d4de439ca30f9f447b9d7783a16f5a1a3..5c7501a28b19e4bc4a6cbdb182e0d682c0bdf648 100644 (file)
--- a/gcc/fortran/invoke.texi
+++ b/gcc/fortran/invoke.texi
@@ -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

diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 0afa5d3346af203dd42c2de4af5c3fa71f61d875..0b55961f083d66cf9aa2524f658e3cb70742440a 100644 (file)
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -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);

diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc
index 6483f9c31e7cb1a3813b1abe6cde4c474e374fd2..0c15bcb2b0a9e80780fe83aa31137eceb1baa878 100644 (file)
--- a/gcc/fortran/simplify.cc
+++ b/gcc/fortran/simplify.cc
@@ -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;

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 2549d32e5309849322477dff5cbad242daabf562..c9d9a916c2840f3bd7a7cf0658c8281731bd76db 100644 (file)
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -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.  */