Subversion Repositories openrisc

/*

   { dg-options "-fopenmp" }

   { dg-do preprocess }

   { dg-require-effective-target fopenmp }

 */

void foo (void)

{

  int i1, j1, k1;

#define p parallel

#define P(x) private (x##1)

#define S(x) shared (x##1)

#define F(x) firstprivate (x##1)

#pragma omp \

  p \

  P(i) \

  S(j) \

  F(k)

  ;

}

/*

   The bug here was that we had a line like:

       # 33554432 "../../gcc/testsuite/gcc.dg/cpp/pragma-3.c"

   Before line:

       #pragma omp parallel private (i1) shared (j1) firstprivate (k1)

   Note the very big integer there.  Normally we should just have

   this:

       # 13 "../../gcc/testsuite/gcc.dg/cpp/pragma-3.c"

       #pragma omp parallel private (i1) shared (j1) firstprivate (k1)

   So let's check that we have no line with a number of 3 or more

   digit after #:

   { dg-final { scan-file-not pragma-3.i "# \[0-9\]{3} \[^\n\r\]*pragma-3.c" } }

*/