* decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s).

From-SVN: r95518

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 349a535678d2757a9314ab0429aac92c4002c074..846186a3174d649ff6b7e0c0dd4bafb743a114c6 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-02-24  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
+
+       * decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s).
+
 2005-02-24  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
 
        Revert yesterday's patch:

diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 9ad5ef179737af4ba8ef200db6ffd447c8a82c8a..b3114cac2c1c188e04912bbedda7bd9d2f6dba04 100644 (file)
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -27,7 +27,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "parse.h"
 
 
-/* This flag is set if a an old-style length selector is matched
+/* This flag is set if an old-style length selector is matched
    during a type-declaration statement.  */
 
 static int old_char_selector;

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index ecbd89ddfbc3fd0172987cd88074f46306517b05..4d98f462a827ba35e215a17f9436d3e4cf00ee36 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -884,8 +884,8 @@ set_type:
 }
 
 
-/* Figure out if if a function reference is pure or not.  Also sets the name
-   of the function for a potential error message.  Returns nonzero if the
+/* Figure out if a function reference is pure or not.  Also set the name
+   of the function for a potential error message.  Return nonzero if the
    function is PURE, zero if not.  */
 
 static int

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 2ed83e6508958eecd765f0af8ed426b527bc0e5a..a97bcc593a371b4cb3318791be67d7ead79829c6 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -1271,7 +1271,7 @@ gfc_conv_ss_descriptor (stmtblock_t * block, gfc_ss * ss, int base)
       /* Also the data pointer.  */
       tmp = gfc_conv_array_data (se.expr);
       /* If this is a variable or address of a variable we use it directly.
-         Otherwise we must evaluate it now to to avoid break dependency
+         Otherwise we must evaluate it now to avoid breaking dependency
         analysis by pulling the expressions for elemental array indices
         inside the loop.  */
       if (!(DECL_P (tmp)

diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index b670f7a3888d679a5ef5113ea37b94d99bc3995e..f16e23ccff5543c4a68e52083a3a36fddf244d69 100644 (file)
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -118,7 +118,7 @@ typedef enum
      scalarization loop.  */
   GFC_SS_SCALAR,
 
-  /* Like GFC_SS_SCALAR except it evaluates a pointer the the expression.
+  /* Like GFC_SS_SCALAR except it evaluates a pointer to the expression.
      Used for elemental function parameters.  */
   GFC_SS_REFERENCE,