trans-decl.c: Fix comment typos.

2013-07-21   Ondřej Bílka  <neleai@seznam.cz>

        * trans-decl.c: Fix comment typos.
        * trans-expr.c: Ditto.

2013-07-21   Ondřej Bílka  <neleai@seznam.cz>

        * io/transfer.c: Fix comment typos.

From-SVN: r201107

5 files changed, 15 insertions, 6 deletions

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f1f2437..85dc3c8 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 2224830..0d7d9c5 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -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
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index de1e51b..e0cdd49 100644
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -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, tree len2, tree str2, int kind,
   /* 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)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e5f7eb7..0a035eb 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 52b1da6..0b1540c 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -233,7 +233,7 @@ read_sf_internal (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;
     }
 
@@ -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 * nbytes)
     {
       *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;
     }