From 43a5ef693f402125ac1ea51cac2ad3cfe5378ed1 Mon Sep 17 00:00:00 2001
From: Kazu Hirata <kazu@cs.umass.edu>
Date: Thu, 13 Jan 2005 19:34:37 +0000
Subject: [PATCH] iresolve.c, [...]: Fix comment typos.

	* iresolve.c, trans-common.c, trans-types.c: Fix comment
	typos.

From-SVN: r93610
---
 gcc/fortran/ChangeLog      | 5 +++++
 gcc/fortran/iresolve.c     | 2 +-
 gcc/fortran/trans-common.c | 2 +-
 gcc/fortran/trans-types.c  | 2 +-
 4 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9553ef3dbbe..e4c6792ee75 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-13  Kazu Hirata  <kazu@cs.umass.edu>
+
+	* iresolve.c, trans-common.c, trans-types.c: Fix comment
+	typos.
+
 2005-01-09  Paul Brook  <paul@codesourcery.com>
 
 	PR fortran/17675
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c
index 8035a9d5cf9..67eefea85a8 100644
--- a/gcc/fortran/iresolve.c
+++ b/gcc/fortran/iresolve.c
@@ -1147,7 +1147,7 @@ gfc_resolve_set_exponent (gfc_expr * f, gfc_expr * x, gfc_expr * i)
   f->ts = x->ts;
 
   /* The library implementation uses GFC_INTEGER_4 unconditionally,
-     convert type so we don't have to implment all possible
+     convert type so we don't have to implement all possible
      permutations.  */
   if (i->ts.kind != 4)
     {
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c
index a00e7e8959c..8119cd32dd7 100644
--- a/gcc/fortran/trans-common.c
+++ b/gcc/fortran/trans-common.c
@@ -698,7 +698,7 @@ add_equivalences (void)
 }
 
 
-/* Returns the offset neccessary to properly align the current equivalence.
+/* Returns the offset necessary to properly align the current equivalence.
    Sets *palign to the required alignment.  */
 
 static HOST_WIDE_INT
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 92b362516fa..019986e3dbb 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -849,7 +849,7 @@ gfc_get_desc_dim_type (void)
 }
 
 
-/* Return the DTYPE for an array.  This desribes the type and type parameters
+/* Return the DTYPE for an array.  This describes the type and type parameters
    of the array.  */
 /* TODO: Only call this when the value is actually used, and make all the
    unknown cases abort.  */