diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9a345b34a9b..8563b1df525 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-28  Kazu Hirata  <kazu@codesourcery.com>
+
+	* gfortran.h, interface.c, resolve.c, symbol.c: Fix comment
+	typos.
+	* intrinsic.texi, invoke.texi: Fix typos.
+
 2007-07-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/31609
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index a668bf471c2..0be73851021 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -157,7 +157,7 @@ typedef enum
 { FORM_FREE, FORM_FIXED, FORM_UNKNOWN }
 gfc_source_form;
 
-/* Basic types.  BT_VOID is used by ISO C BInding so funcs like c_f_pointer
+/* Basic types.  BT_VOID is used by ISO C Binding so funcs like c_f_pointer
    can take any arg with the pointer attribute as a param.  */
 typedef enum
 { BT_UNKNOWN = 1, BT_INTEGER, BT_REAL, BT_COMPLEX,
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index b46e1147710..4160fd6a5e4 100644
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -1400,7 +1400,7 @@ get_sym_storage_size (gfc_symbol *sym)
 
 /* Returns the storage size of an expression (actual argument) or
    zero if it cannot be determined. For an array element, it returns
-   the remaing size as the element sequence consists of all storage
+   the remaining size as the element sequence consists of all storage
    units of the actual argument up to the end of the array.  */
 
 static unsigned long
diff --git a/gcc/fortran/intrinsic.texi b/gcc/fortran/intrinsic.texi
index fb74e1bcfdc..42b5e3f7fbc 100644
--- a/gcc/fortran/intrinsic.texi
+++ b/gcc/fortran/intrinsic.texi
@@ -2082,7 +2082,7 @@ Inquiry function
 
 @item @emph{Arguments}:
 @multitable @columnfractions .15 .70
-@item @var{x} @tab Associated scalar pointer or interoperatable scalar
+@item @var{x} @tab Associated scalar pointer or interoperable scalar
 		   or allocated allocatable variable with @code{TARGET}
 		   attribute.
 @end multitable
diff --git a/gcc/fortran/invoke.texi b/gcc/fortran/invoke.texi
index fb0aa879323..0ec9a9a53a7 100644
--- a/gcc/fortran/invoke.texi
+++ b/gcc/fortran/invoke.texi
@@ -450,7 +450,7 @@ check that the declared interfaces are consistent across program units.
 
 @item -Wnonstd-intrinsics
 @opindex @code{Wnonstd-intrinsics}
-@cindex warnings, non-stdandard intrinsics
+@cindex warnings, non-standard intrinsics
 Warn if the user tries to use an intrinsic that does not belong to the 
 standard the user has chosen via the @option{-std} option.
 
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 88980093d2d..afa1ed83119 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -2394,7 +2394,7 @@ gfc_iso_c_sub_interface (gfc_code *c, gfc_symbol *sym)
     }
   else if (sym->intmod_sym_id == ISOCBINDING_ASSOCIATED)
     {
-      /* TODO: Figure out if this is even reacable; this part of the
+      /* TODO: Figure out if this is even reachable; this part of the
          conditional may not be necessary.  */
       int num_args = 0;
       if (c->ext.actual->next == NULL)
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 3674b31cd32..bee66ede0a4 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -3454,7 +3454,7 @@ gen_shape_param (gfc_formal_arglist **head,
      of BT_INTEGER type.  */
   param_sym->ts.type = BT_VOID;
 
-  /* Initialize the kind to default integer.  However, it will be overriden
+  /* Initialize the kind to default integer.  However, it will be overridden
      during resolution to match the kind of the SHAPE parameter given as
      the actual argument (to allow for any valid integer kind).  */
   param_sym->ts.kind = gfc_default_integer_kind;