===================================================================
@@ -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
===================================================================
@@ -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
===================================================================
@@ -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)
===================================================================
@@ -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
===================================================================
@@ -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;
}