replace "the the" typos

gcc/ada/ChangeLog:

	* exp_ch6.adb: Replace "the the" with "the".
	* sem_ch6.adb: Likewise.
	* sem_disp.ads: Likewise.

gcc/ChangeLog:

	* ctfc.cc (ctf_add_string): Replace "the the" with "the".
	* doc/md.texi: Likewise.
	* gimple-range-infer.cc (non_null_loadstore): Likewise.

gcc/fortran/ChangeLog:

	* gfortran.texi: Replace "the the" with "the".

gcc/testsuite/ChangeLog:

	* g++.dg/warn/Wclass-memaccess.C: Replace "the the" with "the".
	* g++.dg/warn/Wconversion-real-integer2.C: Likewise.
	* gcc.target/powerpc/p9-extract-1.c: Likewise.
	* gcc.target/s390/s390.exp: Likewise.
	* gcc.target/s390/zvector/vec-cmp-2.c: Likewise.
	* gdc.dg/torture/simd_store.d: Likewise.
	* gfortran.dg/actual_array_offset_1.f90: Likewise.
	* gfortran.dg/pdt_15.f03: Likewise.
	* gfortran.dg/pointer_array_8.f90: Likewise.

gcc/ada/exp_ch6.adb

@@ -6582,7 +6582,7 @@ package body Exp_Ch6 is
 
          --  but optimize the case where the result is a function call that
          --  also needs finalization. In this case the result can directly be
-         --  allocated on the the return stack of the caller and no further
+         --  allocated on the return stack of the caller and no further
          --  processing is required.
 
          if Present (Utyp)

gcc/ada/sem_ch6.adb

@@ -505,7 +505,7 @@ package body Sem_Ch6 is
          --  this because it is not part of the original source.
          --  If this is an ignored Ghost entity, analysis of the generated
          --  body is needed to hide external references (as is done in
-         --  Analyze_Subprogram_Body) after which the the subprogram profile
+         --  Analyze_Subprogram_Body) after which the subprogram profile
          --  can be frozen, which is needed to expand calls to such an ignored
          --  Ghost subprogram.
 

gcc/ada/sem_disp.ads

@@ -63,7 +63,7 @@ package Sem_Disp is
    --  the inherited subprogram will have been hidden by the current one at
    --  the point of the type derivation, so it does not appear in the list
    --  of primitive operations of the type, and this procedure inserts the
-   --  overriding subprogram in the the full type's list of primitives by
+   --  overriding subprogram in the full type's list of primitives by
    --  iterating over the list for the parent type. If instead Subp is a new
    --  primitive, then it's simply appended to the primitive list.
 

gcc/ctfc.cc

@@ -324,7 +324,7 @@ ctf_add_string (ctf_container_ref ctfc, const char * name,
   return ctfc_strtable_add_str (str_table, name, name_offset);
 }
 
-/* Add the compilation unit (CU) name string to the the CTF string table.  The
+/* Add the compilation unit (CU) name string to the CTF string table.  The
    CU name has a prepended pwd string if it is a relative path.  Also set the
    CU name offset in the CTF container.  */
 

gcc/doc/md.texi

@@ -2282,7 +2282,7 @@ This constraint won't match unless @option{-mprefer-short-insn-regs} is
 in effect.
 
 @item Rsc
-The the register class of registers that can be used to hold a
+The register class of registers that can be used to hold a
 sibcall call address.  I.e., a caller-saved register.
 
 @item Rct

gcc/fortran/gfortran.texi

@@ -3786,7 +3786,7 @@ The arguments are passed in the following order
 @code{CHARACTER} and no C binding is used
 @item The arguments in the order in which they appear in the Fortran
 declaration
-@item The the present status for optional arguments with value attribute,
+@item The present status for optional arguments with value attribute,
 which are internally passed by value
 @item The character length and/or coarray token and offset for the first
 argument which is a @code{CHARACTER} or a nonallocatable coarray dummy

gcc/gimple-range-infer.cc

@@ -56,7 +56,7 @@ non_null_loadstore (gimple *, tree op, tree, void *data)
   return false;
 }
 
-// Add NAME and RANGE to the the range inference summary.
+// Add NAME and RANGE to the range inference summary.
 
 void
 gimple_infer_range::add_range (tree name, vrange &range)

gcc/testsuite/g++.dg/warn/Wclass-memaccess.C

@@ -1144,7 +1144,7 @@ void test (HasVolRefAssign *p, const HasVolRefAssign &x,
 
 /* HasVirtuals should only be manipulated by the special member functions
    and not by bzero, memcpy, or any other raw memory function. Doing
-   otherwse might corrupt the the vtable pointer.  */
+   otherwse might corrupt the vtable pointer.  */
 struct HasVirtuals { int i; virtual void foo (); };
 
 void test (HasVirtuals *p, const HasVirtuals &x,

gcc/testsuite/g++.dg/warn/Wconversion-real-integer2.C

@@ -4,7 +4,7 @@
 
 // Before the fix that came with this test, we'd output an error for
 // the __INT_MAX__ token.  That token has a BUILTINS_LOCATION
-// location, so the the location prefix in the warning message would
+// location, so the location prefix in the warning message would
 // be:
 //     <built-in>:0:0: warning: conversion to 'float' alters 'int' constant value
 //

gcc/testsuite/gcc.target/powerpc/p9-extract-1.c

@@ -4,7 +4,7 @@
 
 /* Test to make sure VEXTU{B,H,W}{L,R}X is generated for various vector extract
    operations for ISA 3.0 (-mcpu=power9).  In addition, make sure that neither
-   of the the the old methods of doing vector extracts are done either by
+   of the old methods of doing vector extracts are done either by
    explict stores to the stack or by using direct move instructions.  */
 
 #include <altivec.h>

gcc/testsuite/gcc.target/s390/s390.exp

@@ -30,7 +30,7 @@ load_lib target-supports.exp
 load_lib gfortran-dg.exp
 load_lib atomic-dg.exp
 
-# Return 1 if the the assembler understands .machine and .machinemode.  The
+# Return 1 if the assembler understands .machine and .machinemode.  The
 # target attribute needs that feature to work.
 proc check_effective_target_target_attribute { } {
     if { ![check_runtime s390_check_machine_machinemode [subst {

gcc/testsuite/gcc.target/s390/zvector/vec-cmp-2.c

@@ -1,5 +1,5 @@
 /* Similiar to vec-cmp-1.c but requires that
-   s390_canonicalize_comparison is able to merge the the two nested
+   s390_canonicalize_comparison is able to merge the two nested
    compares.  */
 
 /* { dg-do compile { target { s390*-*-* } } } */

gcc/testsuite/gdc.dg/torture/simd_store.d

@@ -23,7 +23,7 @@ void main()
             // store `v` to location pointed to by `d`
             storeUnaligned(cast(T*)d, v);
 
-            // check that the the data was stored correctly
+            // check that the data was stored correctly
             foreach (j; 0..T.sizeof)
                 assert(ptrToV[j] == d[j]);
         }

gcc/testsuite/gfortran.dg/actual_array_offset_1.f90

@@ -155,7 +155,7 @@ program test_quicksort
 
     call quicksort( array )
 
-! Check the the array is correctly ordered
+! Check the array is correctly ordered
     if (.not.check (array)) STOP 2
 contains
      logical function check (arg)

gcc/testsuite/gfortran.dg/pdt_15.f03

@@ -1,7 +1,7 @@
 ! { dg-do compile }
 ! { dg-options "-fdump-tree-original" }
 !
-! Test the fix for PR82375. This is a wrinkle on the the allocatable
+! Test the fix for PR82375. This is a wrinkle on the allocatable
 ! version of pdt_13.f03, pdt_14.f03, whereby 'root' is now declared
 ! in a subroutine so that it should be cleaned up automatically. This
 ! is best tested with valgrind or its like.

gcc/testsuite/gfortran.dg/pointer_array_8.f90

@@ -30,7 +30,7 @@
 
   select type (cptr)
     type is (integer)
-      if (any (cptr .ne. [1,2,3])) STOP 3! Check the the scalarizer works.
+      if (any (cptr .ne. [1,2,3])) STOP 3! Check the scalarizer works.
       if (cptr(2) .ne. 2) STOP 4! Check ordinary array indexing.
   end select
 
@@ -63,7 +63,7 @@ contains
     addr = loc(arg)
     select type (arg)
       type is (integer)
-        if (any (arg .ne. [1,2,3])) STOP 11! Check the the scalarizer works.
+        if (any (arg .ne. [1,2,3])) STOP 11! Check the scalarizer works.
         if (arg(2) .ne. 2) STOP 12! Check ordinary array indexing.
     end select
   end subroutine