* trans-expr.c: Fix comment typos.

From-SVN: r100362

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 74b3a437a5d821302983c04578b83cf0f862a7f5..ab7f5dce256e6bba740a2134a0b07101c4985548 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -2,6 +2,8 @@
 
        * trans-expr.c: Remove trailing ^M.
 
+       * trans-expr.c: Fix comment typos.
+
 2005-05-29  Janne Blomqvist  <jblomqvi@vipunen.hut.fi>
             Steven G. Kargl  <kargls@comcast.net>
   

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 9d48ed4a6488c492ffad3c5070e628f3892eda7b..cb6f167ff94b57bf0008813edeb730233beeec60 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -372,7 +372,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr)
        }
       else
        {
-          /* Dereference non-charcter scalar dummy arguments.  */
+          /* Dereference non-character scalar dummy arguments.  */
          if ((sym->attr.dummy) && (!sym->attr.dimension))
            se->expr = gfc_build_indirect_ref (se->expr);
 
@@ -383,7 +383,7 @@ gfc_conv_variable (gfc_se * se, gfc_expr * expr)
            se->expr = gfc_build_indirect_ref (se->expr);
 
           /* 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)
              && ((sym->attr.dummy) 
                  || (sym->attr.function || sym->attr.result)