view gcc/testsuite/gcc.dg/cpp/pragma-3.c @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* 
   { 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" } }
*/