Index: gcc.target/mips/inter/mips16_stubs_1_x.c
===================================================================
--- gcc.target/mips/inter/mips16_stubs_1_x.c	(revision 172244)
+++ gcc.target/mips/inter/mips16_stubs_1_x.c	(working copy)
@@ -89,7 +89,7 @@
 #define CHECK_RESULT(x, y) if ((x) != (y)) abort ()
 #define CHECK_VOID_RESULT(x, y)  CHECK_RESULT (((x), the_result), y)
 
-/* Call functions through pointers and and check against expected results.  */
+/* Call functions through pointers and check against expected results.  */
 void
 test (void)
 {
Index: gfortran.dg/func_result_1.f90
===================================================================
--- gfortran.dg/func_result_1.f90	(revision 172244)
+++ gfortran.dg/func_result_1.f90	(working copy)
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! From PR 19673 : We didn't dereference the the result from POINTER
+! From PR 19673 : We didn't dereference the result from POINTER
 ! functions with a RESULT clause
 program ret_ptr
   if (foo(99) /= bar(99)) call abort ()
Index: gfortran.dg/use_rename_1.f90
===================================================================
--- gfortran.dg/use_rename_1.f90	(revision 172244)
+++ gfortran.dg/use_rename_1.f90	(working copy)
@@ -1,6 +1,6 @@
 ! { dg-do compile }
 ! Tests the fix for PR34854, in which the second of the two subroutines would fail
-! because the the type declaration of nmoltype_phase would incorrectly conflict
+! because the type declaration of nmoltype_phase would incorrectly conflict
 ! with the type given to the module variable of the same name.
 !
 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Index: gfortran.dg/missing_derived_type_1.f90
===================================================================
--- gfortran.dg/missing_derived_type_1.f90	(revision 172244)
+++ gfortran.dg/missing_derived_type_1.f90	(working copy)
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! Tests the fix for PR29364, in which the the absence of the derived type
+! Tests the fix for PR29364, in which the absence of the derived type
 ! 'nonexist' was not diagnosed.
 !
 ! Contributed by Tobias Burnus  <tobias.burnus@physik.fu-berlin.de>
Index: gcc.c-torture/execute/990826-0.x
===================================================================
--- gcc.c-torture/execute/990826-0.x	(revision 172244)
+++ gcc.c-torture/execute/990826-0.x	(working copy)
@@ -1,7 +1,7 @@
 # XFAIL this test for AIX using -msoft-float.
 # This test calls the system libm.a function floor.
 # A false failure is reported if -msoft-float is used.
-# AIX expects the the parameters to be passed in fp regs. 
+# AIX expects the parameters to be passed in fp regs. 
 if { [istarget powerpc-*-aix*] || [istarget rs6000-*-aix*] } {
     set torture_eval_before_execute {
 	global compiler_conditional_xfail_data
Index: gcc.c-torture/execute/980709-1.x
===================================================================
--- gcc.c-torture/execute/980709-1.x	(revision 172244)
+++ gcc.c-torture/execute/980709-1.x	(working copy)
@@ -1,7 +1,7 @@
 # XFAIL this test for AIX using -msoft-float.
 # This test calls the system libm.a function pow.
 # A false failure is reported if -msoft-float is used.
-# AIX expects the the parameters to be passed in fp regs. 
+# AIX expects the parameters to be passed in fp regs. 
 if { [istarget powerpc-*-aix*] || [istarget rs6000-*-aix*] } {
     set torture_eval_before_execute {
 	global compiler_conditional_xfail_data
Index: gcc.c-torture/compile/20011106-2.c
===================================================================
--- gcc.c-torture/compile/20011106-2.c	(revision 172244)
+++ gcc.c-torture/compile/20011106-2.c	(working copy)
@@ -1,4 +1,4 @@
-/* Test the the type of a component of a conditional expression between
+/* Test the type of a component of a conditional expression between
    two structures is correct.  */
 /* Origin: Joseph Myers <jsm28@cam.ac.uk>.  */
 
Index: ada/acats/tests/c4/c460011.a
===================================================================
--- ada/acats/tests/c4/c460011.a	(revision 172244)
+++ ada/acats/tests/c4/c460011.a	(working copy)
@@ -37,7 +37,7 @@
 --      and greater than the value of the mod.
 --      Declare a generic test procedure and instantiate it for each of the
 --      unsigned types for each operand type.
---      Check that the the operand is properly rounded during the conversion.
+--      Check that the operand is properly rounded during the conversion.
 --
 -- APPLICABILITY CRITERIA:
 --      This test is applicable to all implementations which support
Index: ada/acats/tests/c9/c954013.a
===================================================================
--- ada/acats/tests/c9/c954013.a	(revision 172244)
+++ ada/acats/tests/c9/c954013.a	(working copy)
@@ -363,7 +363,7 @@
                -- Show that this message did pass through the Distributor Task
                Transaction.TC_Thru_Dist := true;
 
-               -- Pass this transaction on the the appropriate computation
+               -- Pass this transaction on the appropriate computation
                -- task
                case Transaction.Code is 
                   when Credit =>
Index: gcc.dg/vect/vect-peel-1.c
===================================================================
--- gcc.dg/vect/vect-peel-1.c	(revision 172244)
+++ gcc.dg/vect/vect-peel-1.c	(working copy)
@@ -14,10 +14,10 @@
   int i;
   int ia[N+1];
 
-  /* All the accesses are misaligned. With cost model disabled, we count the 
-     the number of aligned accesses for each peeling option, and in this case
-     we align the two loads if possible (i.e., if misaligned stores are 
-     supported).  */
+  /* All the accesses are misaligned. With cost model disabled, we
+     count the number of aligned accesses for each peeling option, and
+     in this case we align the two loads if possible (i.e., if
+     misaligned stores are supported).  */
   for (i = 1; i <= N; i++)
     {
       ia[i] = ib[i+2] + ib[i+6];
Index: objc-obj-c++-shared/objc-test-suite-next-encode-assist-impl.h
===================================================================
--- objc-obj-c++-shared/objc-test-suite-next-encode-assist-impl.h	(revision 172244)
+++ objc-obj-c++-shared/objc-test-suite-next-encode-assist-impl.h	(working copy)
@@ -676,7 +676,7 @@
          && *ntype++ != '=')
     /* do nothing */;
 
-  /* If there's a "<name>=", ntype - 1 points to '='; skip the the name */
+  /* If there's a "<name>=", ntype - 1 points to '='; skip the name */
   if (*(ntype - 1) == '=')
     type = ntype;
 
Index: objc/execute/next_mapping.h
===================================================================
--- objc/execute/next_mapping.h	(revision 172244)
+++ objc/execute/next_mapping.h	(working copy)
@@ -749,7 +749,7 @@
          && *ntype++ != '=')
     /* do nothing */;
 
-  /* If there's a "<name>=", ntype - 1 points to '='; skip the the name */
+  /* If there's a "<name>=", ntype - 1 points to '='; skip the name */
   if (*(ntype - 1) == '=')
     type = ntype;
 
