trans-stmt.c: Fix a typo

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

From-SVN: r117781

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index aa06cf314d3b0455dc9010d14078162061f48b1b..6d7e4c42b2f7c2145db3439b46dc45db5e9cd8fc 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 b742d169c73717feb52d0ed84d4e1ec40998c60f..46701b7b14ead84b4ba3f6c83d7278712e85680d 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 1dd8626d5cf513cf7ad494017e05ff9dcc964c05..74c7e95a6aa59e6b6ce1e69079fd9184c8f94f1d 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 8fc2a6c37be7ba6689e52d530e424feff80c91a5..2639cabae36b54247a7ccfa99cbe32606e7c9945 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 72500229558818ab87ef2f4fdd7da84d5d55142f..d12b953cf9e5ed93b9653bbe2bdc266f6c2dd607 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 25d41eec604ec002153cdf6866f6ccc9217e8d46..1c49e7b56cb886a3baa44f9263d12c5b19ecfc7b 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