2006-10-16 Tobias Burnus <burnus@net-b.de>

       * trans-stmt.c: Fix a typo
       * invoke.texi: Fix typos
       * resolve.c: Fix a comment typo
       * trans-decl.c: Fix a comment typo
       * primary.c: Fix a comment typo

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117781 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index aa06cf3..6d7e4c4 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2006-10-16  Tobias Burnus <burnus@net-b.de>
+
+       * trans-stmt.c: Fix a typo
+       * invoke.texi: Fix typos
+       * resolve.c: Fix a comment typo
+       * trans-decl.c: Fix a comment typo
+       * primary.c: Fix a comment typo
+
 2006-10-15  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/29403

diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi
index b742d16..46701b7 100644 (file)
--- a/gcc/fortran/invoke.texi
+++ b/gcc/fortran/invoke.texi
@@ -845,13 +845,13 @@ with code compiled without this option, and may execute slower.
 @item -frepack-arrays
 @cindex Repacking arrays
 In some circumstances GNU Fortran may pass assumed shape array
-sections via a descriptor describing a discontiguous area of memory.
+sections via a descriptor describing a discontinuous area of memory.
 This option adds code to the function prologue to repack the data into
 a contiguous block at runtime.
 
 This should result in faster accesses to the array.  However it can introduce
 significant overhead to the function call, especially  when the passed data
-is discontiguous.
+is discontinuous.
 
 @cindex -fshort-enums
 @item -fshort-enums

diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c
index 1dd8626..74c7e95 100644 (file)
--- a/gcc/fortran/primary.c
+++ b/gcc/fortran/primary.c
@@ -463,7 +463,7 @@ match_real_constant (gfc_expr ** result, int signflag)
       c = gfc_next_char ();
     }
 
-  /* Scan significand.  */
+  /* Scan significant.  */
   for (;; c = gfc_next_char (), count++)
     {
       if (c == '.')

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 8fc2a6c..2639cab 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -1528,7 +1528,7 @@ resolve_function (gfc_expr * expr)
             && expr->value.function.isym->generic_id != GFC_ISYM_LOC
             && expr->value.function.isym->generic_id != GFC_ISYM_PRESENT)
     {
-      /* Array instrinsics must also have the last upper bound of an
+      /* Array intrinsics must also have the last upper bound of an
         assumed size array argument.  UBOUND and SIZE have to be
         excluded from the check if the second argument is anything
         than a constant.  */

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 7250022..d12b953 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -701,7 +701,7 @@ gfc_build_dummy_array_decl (gfc_symbol * sym, tree dummy)
   type = TREE_TYPE (type);
   if (GFC_DESCRIPTOR_TYPE_P (type))
     {
-      /* Create a decriptorless array pointer.  */
+      /* Create a descriptorless array pointer.  */
       as = sym->as;
       packed = 0;
       if (!gfc_option.flag_repack_arrays)

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index 25d41ee..1c49e7b 100644 (file)
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -625,7 +625,7 @@ gfc_trans_if (gfc_code * code)
 }
 
 
-/* Translage an arithmetic IF expression.
+/* Translate an arithmetic IF expression.
 
    IF (cond) label1, label2, label3 translates to