Re: [PATCH 1/*] Fix common typos.

[Tobias Burnus <burnus at net-b dot de>]

OndÅej BÃlka wrote:
> This is series of typo fixing patches. They are generated with stylepp
> https://github.com/neleai/stylepp
> which makes patch generation very effective.
[...]
> Then I ran script/stylepp_fix_spell which produced following 300kb patch:
> http://kam.mff.cuni.cz/~ondra/0001-Fix-common-typos.patch

I committed (Rev. 201107) the Fortran patches I found in the huge patch 
- see attachment. As there was still a debate about ok vs. OK, I 
excluded those.

Tobias

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 201105)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -1,3 +1,8 @@
+2013-07-21   OndÅ?ej Bílka  <neleai@seznam.cz>
+
+	* trans-decl.c: Fix comment typos.
+	* trans-expr.c: Ditto.
+
 2013-07-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/56937
Index: gcc/fortran/trans-decl.c
===================================================================
--- gcc/fortran/trans-decl.c	(Revision 201105)
+++ gcc/fortran/trans-decl.c	(Arbeitskopie)
@@ -2157,7 +2157,7 @@ create_function_arglist (gfc_symbol * sym)
 	    }
 	}
       /* For noncharacter scalar intrinsic types, VALUE passes the value,
-	 hence, the optional status cannot be transfered via a NULL pointer.
+	 hence, the optional status cannot be transferred via a NULL pointer.
 	 Thus, we will use a hidden argument in that case.  */
       else if (f->sym->attr.optional && f->sym->attr.value
 	       && !f->sym->attr.dimension && f->sym->ts.type != BT_CLASS
Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c	(Revision 201105)
+++ gcc/fortran/trans-expr.c	(Arbeitskopie)
@@ -1235,7 +1235,7 @@ gfc_conv_expr_present (gfc_symbol * sym)
      as actual argument to denote absent dummies. For array descriptors,
      we thus also need to check the array descriptor.  For BT_CLASS, it
      can also occur for scalars and F2003 due to type->class wrapping and
-     class->class wrapping.  Note futher that BT_CLASS always uses an
+     class->class wrapping.  Note further that BT_CLASS always uses an
      array descriptor for arrays, also for explicit-shape/assumed-size.  */
 
   if (!sym->attr.allocatable
@@ -2829,7 +2829,7 @@ gfc_build_compare_string (tree len1, tree str1, tr
   /* We can compare via memcpy if the strings are known to be equal
      in length and they are
      - kind=1
-     - kind=4 and the comparision is for (in)equality.  */
+     - kind=4 and the comparison is for (in)equality.  */
 
   if (INTEGER_CST_P (len1) && INTEGER_CST_P (len2)
       && tree_int_cst_equal (len1, len2)
Index: libgfortran/ChangeLog
===================================================================
--- libgfortran/ChangeLog	(Revision 201105)
+++ libgfortran/ChangeLog	(Arbeitskopie)
@@ -1,3 +1,7 @@
+2013-07-21   OndÅ?ej Bílka  <neleai@seznam.cz>
+
+	* io/transfer.c: Fix comment typos.
+
 2013-07-21  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/35862
Index: libgfortran/io/transfer.c
===================================================================
--- libgfortran/io/transfer.c	(Revision 201105)
+++ libgfortran/io/transfer.c	(Arbeitskopie)
@@ -233,7 +233,7 @@ read_sf_internal (st_parameter_dt *dtp, int * leng
     {
       *length = 0;
       /* Just return something that isn't a NULL pointer, otherwise the
-         caller thinks an error occured.  */
+         caller thinks an error occurred.  */
       return (char*) empty_string;
     }
 
@@ -292,7 +292,7 @@ read_sf (st_parameter_dt *dtp, int * length)
     {
       *length = 0;
       /* Just return something that isn't a NULL pointer, otherwise the
-         caller thinks an error occured.  */
+         caller thinks an error occurred.  */
       return (char*) empty_string;
     }
 
@@ -512,7 +512,7 @@ read_block_form4 (st_parameter_dt *dtp, int * nbyt
     {
       *nbytes = 0;
       /* Just return something that isn't a NULL pointer, otherwise the
-         caller thinks an error occured.  */
+         caller thinks an error occurred.  */
       return empty_string;
     }