@@ -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)
@@ -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.
@@ -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.
@@ -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. */
@@ -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
@@ -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
@@ -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)
@@ -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,
@@ -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
//
@@ -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>
@@ -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 {
@@ -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*-*-* } } } */
@@ -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]);
}
@@ -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)
@@ -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.
@@ -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