OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [gomp/] [pr39495-2.C] - Rev 774

Go to most recent revision | Compare with Previous | Blame | View Log

// PR c/39495
// { dg-do compile }
// { dg-options "-fopenmp" }

#define INT_MIN (-__INT_MAX__ - 1)
#define INT_MAX __INT_MAX__
#define UINT_MAX (2U * __INT_MAX__ + 1)

int
foo (void)
{
  int i;
  unsigned int u;

#pragma omp for
  for (i = INT_MIN + 6; i != INT_MIN; i--)      // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (i = INT_MIN + 6; i == INT_MIN; i--)      // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (i = INT_MAX - 6; i != INT_MAX; i++)      // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (i = INT_MAX - 6; i == INT_MAX; i++)      // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (u = 6; u != 0; u--)                      // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (u = 6; u == 0; u--)                      // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (u = UINT_MAX - 6; u != UINT_MAX; u++)    // { dg-error "invalid controlling predicate" }
    ;
#pragma omp for
  for (u = UINT_MAX - 6; u == UINT_MAX; u++)    // { dg-error "invalid controlling predicate" }
    ;
}

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.