Commit 897f1a8b by Kazu Hirata Committed by Kazu Hirata

* trans-expr.c: Fix comment typos.

From-SVN: r100362
parent 404f4351
...@@ -2,6 +2,8 @@ ...@@ -2,6 +2,8 @@
* trans-expr.c: Remove trailing ^M. * trans-expr.c: Remove trailing ^M.
* trans-expr.c: Fix comment typos.
2005-05-29 Janne Blomqvist <jblomqvi@vipunen.hut.fi> 2005-05-29 Janne Blomqvist <jblomqvi@vipunen.hut.fi>
Steven G. Kargl <kargls@comcast.net> Steven G. Kargl <kargls@comcast.net>
......
...@@ -372,7 +372,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr) ...@@ -372,7 +372,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr)
} }
else else
{ {
/* Dereference non-charcter scalar dummy arguments. */ /* Dereference non-character scalar dummy arguments. */
if ((sym->attr.dummy) && (!sym->attr.dimension)) if ((sym->attr.dummy) && (!sym->attr.dimension))
se->expr = gfc_build_indirect_ref (se->expr); se->expr = gfc_build_indirect_ref (se->expr);
...@@ -383,7 +383,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr) ...@@ -383,7 +383,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr)
se->expr = gfc_build_indirect_ref (se->expr); se->expr = gfc_build_indirect_ref (se->expr);
/* Dereference non-character pointer variables. /* Dereference non-character pointer variables.
These must be dummys or results or scalars. */ These must be dummies, results, or scalars. */
if ((sym->attr.pointer || sym->attr.allocatable) if ((sym->attr.pointer || sym->attr.allocatable)
&& ((sym->attr.dummy) && ((sym->attr.dummy)
|| (sym->attr.function || sym->attr.result) || (sym->attr.function || sym->attr.result)
......
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