Commit 6bd2c800 by Ondřej Bílka Committed by Tobias Burnus

decl.c: Fix comment typos.

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

        * decl.c: Fix comment typos.
        * interface.c: Likewise.
        * trans-array.c: Likewise.
        * trans.c: Likewise.

From-SVN: r201162
parent d7172355
2013-07-23 Ondřej Bílka <neleai@seznam.cz>
* decl.c: Fix comment typos.
* interface.c: Likewise.
* trans-array.c: Likewise.
* trans.c: Likewise.
2013-07-22 Tobias Burnus <burnus@net-b.de> 2013-07-22 Tobias Burnus <burnus@net-b.de>
PR fortran/57906 PR fortran/57906
...@@ -20,7 +27,7 @@ ...@@ -20,7 +27,7 @@
* trans-array.c (gfc_array_allocate, * trans-array.c (gfc_array_allocate,
gfc_trans_deferred_array): Plug memory leak. gfc_trans_deferred_array): Plug memory leak.
2013-07-21 Ondřej Bílka <neleai@seznam.cz> 2013-07-21 Ondřej Bílka <neleai@seznam.cz>
* trans-decl.c: Fix comment typos. * trans-decl.c: Fix comment typos.
* trans-expr.c: Ditto. * trans-expr.c: Ditto.
......
...@@ -8255,7 +8255,7 @@ match_procedure_in_type (void) ...@@ -8255,7 +8255,7 @@ match_procedure_in_type (void)
} }
/* See if we already have a binding with this name in the symtree which /* See if we already have a binding with this name in the symtree which
would be an error. If a GENERIC already targetted this binding, it may would be an error. If a GENERIC already targeted this binding, it may
be already there but then typebound is still NULL. */ be already there but then typebound is still NULL. */
stree = gfc_find_symtree (ns->tb_sym_root, name); stree = gfc_find_symtree (ns->tb_sym_root, name);
if (stree && stree->n.tb) if (stree && stree->n.tb)
......
...@@ -3170,7 +3170,7 @@ gfc_procedure_use (gfc_symbol *sym, gfc_actual_arglist **ap, locus *where) ...@@ -3170,7 +3170,7 @@ gfc_procedure_use (gfc_symbol *sym, gfc_actual_arglist **ap, locus *where)
gfc_formal_arglist *dummy_args; gfc_formal_arglist *dummy_args;
/* Warn about calls with an implicit interface. Special case /* Warn about calls with an implicit interface. Special case
for calling a ISO_C_BINDING becase c_loc and c_funloc for calling a ISO_C_BINDING because c_loc and c_funloc
are pseudo-unknown. Additionally, warn about procedures not are pseudo-unknown. Additionally, warn about procedures not
explicitly declared at all if requested. */ explicitly declared at all if requested. */
if (sym->attr.if_source == IFSRC_UNKNOWN && ! sym->attr.is_iso_c) if (sym->attr.if_source == IFSRC_UNKNOWN && ! sym->attr.is_iso_c)
...@@ -3287,7 +3287,7 @@ void ...@@ -3287,7 +3287,7 @@ void
gfc_ppc_use (gfc_component *comp, gfc_actual_arglist **ap, locus *where) gfc_ppc_use (gfc_component *comp, gfc_actual_arglist **ap, locus *where)
{ {
/* Warn about calls with an implicit interface. Special case /* Warn about calls with an implicit interface. Special case
for calling a ISO_C_BINDING becase c_loc and c_funloc for calling a ISO_C_BINDING because c_loc and c_funloc
are pseudo-unknown. */ are pseudo-unknown. */
if (gfc_option.warn_implicit_interface if (gfc_option.warn_implicit_interface
&& comp->attr.if_source == IFSRC_UNKNOWN && comp->attr.if_source == IFSRC_UNKNOWN
......
...@@ -994,7 +994,7 @@ get_array_ref_dim_for_loop_dim (gfc_ss *ss, int loop_dim) ...@@ -994,7 +994,7 @@ get_array_ref_dim_for_loop_dim (gfc_ss *ss, int loop_dim)
'eltype' == NULL signals that the temporary should be a class object. 'eltype' == NULL signals that the temporary should be a class object.
The 'initial' expression is used to obtain the size of the dynamic The 'initial' expression is used to obtain the size of the dynamic
type; otherwise the allocation and initialisation proceeds as for any type; otherwise the allocation and initialization proceeds as for any
other expression other expression
PRE, POST, INITIAL, DYNAMIC and DEALLOC are as for PRE, POST, INITIAL, DYNAMIC and DEALLOC are as for
......
...@@ -1568,7 +1568,7 @@ gfc_set_backend_locus (locus * loc) ...@@ -1568,7 +1568,7 @@ gfc_set_backend_locus (locus * loc)
} }
/* Restore the saved locus. Only used in conjonction with /* Restore the saved locus. Only used in conjunction with
gfc_save_backend_locus, to free the memory when we are done. */ gfc_save_backend_locus, to free the memory when we are done. */
void void
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment