Commit 5b2d2d52 by Mike Stump

Cleanup double words.

From-SVN: r172245
parent 3e49fb03
...@@ -37,7 +37,7 @@ ...@@ -37,7 +37,7 @@
-- and greater than the value of the mod. -- and greater than the value of the mod.
-- Declare a generic test procedure and instantiate it for each of the -- Declare a generic test procedure and instantiate it for each of the
-- unsigned types for each operand type. -- 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: -- APPLICABILITY CRITERIA:
-- This test is applicable to all implementations which support -- This test is applicable to all implementations which support
......
...@@ -363,7 +363,7 @@ procedure C954013 is ...@@ -363,7 +363,7 @@ procedure C954013 is
-- Show that this message did pass through the Distributor Task -- Show that this message did pass through the Distributor Task
Transaction.TC_Thru_Dist := true; Transaction.TC_Thru_Dist := true;
-- Pass this transaction on the the appropriate computation -- Pass this transaction on the appropriate computation
-- task -- task
case Transaction.Code is case Transaction.Code is
when Credit => when Credit =>
......
/* 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. */ two structures is correct. */
/* Origin: Joseph Myers <jsm28@cam.ac.uk>. */ /* Origin: Joseph Myers <jsm28@cam.ac.uk>. */
......
# XFAIL this test for AIX using -msoft-float. # XFAIL this test for AIX using -msoft-float.
# This test calls the system libm.a function pow. # This test calls the system libm.a function pow.
# A false failure is reported if -msoft-float is used. # 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*] } { if { [istarget powerpc-*-aix*] || [istarget rs6000-*-aix*] } {
set torture_eval_before_execute { set torture_eval_before_execute {
global compiler_conditional_xfail_data global compiler_conditional_xfail_data
......
# XFAIL this test for AIX using -msoft-float. # XFAIL this test for AIX using -msoft-float.
# This test calls the system libm.a function floor. # This test calls the system libm.a function floor.
# A false failure is reported if -msoft-float is used. # 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*] } { if { [istarget powerpc-*-aix*] || [istarget rs6000-*-aix*] } {
set torture_eval_before_execute { set torture_eval_before_execute {
global compiler_conditional_xfail_data global compiler_conditional_xfail_data
......
...@@ -14,10 +14,10 @@ int main1 () ...@@ -14,10 +14,10 @@ int main1 ()
int i; int i;
int ia[N+1]; int ia[N+1];
/* All the accesses are misaligned. With cost model disabled, we count the /* All the accesses are misaligned. With cost model disabled, we
the number of aligned accesses for each peeling option, and in this case count the number of aligned accesses for each peeling option, and
we align the two loads if possible (i.e., if misaligned stores are in this case we align the two loads if possible (i.e., if
supported). */ misaligned stores are supported). */
for (i = 1; i <= N; i++) for (i = 1; i <= N; i++)
{ {
ia[i] = ib[i+2] + ib[i+6]; ia[i] = ib[i+2] + ib[i+6];
......
...@@ -89,7 +89,7 @@ extern _Complex double (*pcd10) (double, double); ...@@ -89,7 +89,7 @@ extern _Complex double (*pcd10) (double, double);
#define CHECK_RESULT(x, y) if ((x) != (y)) abort () #define CHECK_RESULT(x, y) if ((x) != (y)) abort ()
#define CHECK_VOID_RESULT(x, y) CHECK_RESULT (((x), the_result), y) #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 void
test (void) test (void)
{ {
......
! { dg-do run } ! { 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 ! functions with a RESULT clause
program ret_ptr program ret_ptr
if (foo(99) /= bar(99)) call abort () if (foo(99) /= bar(99)) call abort ()
......
! { dg-do compile } ! { 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. ! 'nonexist' was not diagnosed.
! !
! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de> ! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de>
......
! { dg-do compile } ! { dg-do compile }
! Tests the fix for PR34854, in which the second of the two subroutines would fail ! 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. ! with the type given to the module variable of the same name.
! !
! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
......
...@@ -676,7 +676,7 @@ objc_layout_structure (const char *type, ...@@ -676,7 +676,7 @@ objc_layout_structure (const char *type,
&& *ntype++ != '=') && *ntype++ != '=')
/* do nothing */; /* 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) == '=') if (*(ntype - 1) == '=')
type = ntype; type = ntype;
......
...@@ -749,7 +749,7 @@ objc_layout_structure (const char *type, ...@@ -749,7 +749,7 @@ objc_layout_structure (const char *type,
&& *ntype++ != '=') && *ntype++ != '=')
/* do nothing */; /* 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) == '=') if (*(ntype - 1) == '=')
type = ntype; type = ntype;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment