2004-08-29 Steven G. Kargl <kargls@comcast.net>

[pf3gnuchains/gcc-fork.git] / gcc / fortran / resolve.c

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index dfca4ab..e310f59 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -344,7 +344,7 @@ resolve_entries (gfc_namespace * ns)
   if (ns->proc_name->attr.entry_master)
     return;
 
-  /* If this isn't a procedure something as gone horribly wrong.   */
+  /* If this isn't a procedure something has gone horribly wrong.   */
   assert (ns->proc_name->attr.flavor == FL_PROCEDURE);
   
   /* Remember the current namespace.  */
@@ -369,8 +369,8 @@ resolve_entries (gfc_namespace * ns)
 
   /* Create a new symbol for the master function.  */
   /* Give the internal function a unique name (within this file).
-     Also include teh function name so the user has some hope of figuring
-     out whats going on.  */
+     Also include the function name so the user has some hope of figuring
+     out what is going on.  */
   snprintf (name, GFC_MAX_SYMBOL_LEN, "master.%d.%s",
            master_count++, ns->proc_name->name);
   name[GFC_MAX_SYMBOL_LEN] = '\0';
@@ -392,10 +392,10 @@ resolve_entries (gfc_namespace * ns)
   for (el = ns->entries; el; el = el->next)
     merge_argument_lists (proc, el->sym->formal);
 
-  /* And use it for the function body.  */
+  /* Use the master function for the function body.  */
   ns->proc_name = proc;
 
-  /* FInalize the new symbols.  */
+  /* Finalize the new symbols.  */
   gfc_commit_symbols ();
 
   /* Restore the original namespace.  */
@@ -1392,7 +1392,7 @@ resolve_operator (gfc_expr * e)
       if (op1->ts.type == BT_CHARACTER && op2->ts.type == BT_CHARACTER)
        {
          e->ts.type = BT_LOGICAL;
-         e->ts.kind = gfc_default_logical_kind ();
+         e->ts.kind = gfc_default_logical_kind;
          break;
        }
 
@@ -1401,7 +1401,7 @@ resolve_operator (gfc_expr * e)
          gfc_type_convert_binary (e);
 
          e->ts.type = BT_LOGICAL;
-         e->ts.kind = gfc_default_logical_kind ();
+         e->ts.kind = gfc_default_logical_kind;
          break;
        }