From: Kazu Hirata <kazu@cs.umass.edu>
Date: Mon, 30 May 2005 15:33:32 +0000 (+0000)
Subject: * trans-expr.c: Fix comment typos.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=897f1a8b3cddf8428166ca1fdf86d126b7f0ad16;p=gcc.git

* trans-expr.c: Fix comment typos.

From-SVN: r100362
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 74b3a437a5d..ab7f5dce256 100644
--- 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 9d48ed4a648..cb6f167ff94 100644
--- 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)