-- 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
-- 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 =>
-/* 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>. */
# 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
# 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
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];
#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)
{
! { 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 ()
! { 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>
! { 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>
&& *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;
&& *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;