OSDN Git Service

* trans-expr.c: Fix comment typos.
authorkazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 May 2005 15:33:32 +0000 (15:33 +0000)
committerkazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 May 2005 15:33:32 +0000 (15:33 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100362 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-expr.c

index 74b3a43..ab7f5dc 100644 (file)
@@ -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>
   
index 9d48ed4..cb6f167 100644 (file)
@@ -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)