Commit 93c71688 by Tobias Burnus Committed by Tobias Burnus

trans-decl.c (gfc_trans_deferred_vars): Fix spelling.

2010-01-04  Tobias Burnus  <burnus@net-b.de>

        * trans-decl.c (gfc_trans_deferred_vars): Fix spelling.

From-SVN: r155607
parent 5b130807
2010-01-04 Tobias Burnus <burnus@net-b.de> 2010-01-04 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_trans_deferred_vars): Fix spelling.
2010-01-04 Tobias Burnus <burnus@net-b.de>
PR fortran/41872 PR fortran/41872
* trans-expr.c (gfc_conv_procedure_call): Add indirect ref * trans-expr.c (gfc_conv_procedure_call): Add indirect ref
......
...@@ -537,7 +537,7 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) ...@@ -537,7 +537,7 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym)
gfortran would typically put them in either the BSS or gfortran would typically put them in either the BSS or
initialized data segments, and only mark them as common if initialized data segments, and only mark them as common if
they were part of common blocks. However, if they are not put they were part of common blocks. However, if they are not put
into common space, then C cannot initialize global fortran into common space, then C cannot initialize global Fortran
variables that it interoperates with and the draft says that variables that it interoperates with and the draft says that
either Fortran or C should be able to initialize it (but not either Fortran or C should be able to initialize it (but not
both, of course.) (J3/04-007, section 15.3). */ both, of course.) (J3/04-007, section 15.3). */
...@@ -3188,7 +3188,7 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, tree fnbody) ...@@ -3188,7 +3188,7 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, tree fnbody)
|| (sym->ts.type == BT_CLASS || (sym->ts.type == BT_CLASS
&& sym->ts.u.derived->components->attr.allocatable)) && sym->ts.u.derived->components->attr.allocatable))
{ {
/* Nullify and automatic deallocatation of allocatable scalars. */ /* Nullify and automatic deallocation of allocatable scalars. */
tree tmp; tree tmp;
gfc_expr *e; gfc_expr *e;
gfc_se se; gfc_se se;
......
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