view gcc/testsuite/c-c++-common/gomp/pr59917-2.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* PR middle-end/59917 */
/* { dg-do compile } */
/* { dg-options "-O2 -fopenmp" } */

struct J { long buf[8]; };
extern int setjmp (struct J[1]);
void foo (int);

void
bar (void)
{
  int k;
  foo (-1);
#pragma omp parallel
  for (k = 0; k < 10; ++k)
    {
      struct J j[1];
      if (setjmp (j) == 0)
	foo (k);
    }
  foo (-2);
}