/* { dg-skip-if "not yet" { c++ } } */

int test1()
{
  int i, j, k, b[10];
  int a[30];
  double d;
  float r;
  i = 0;
  #pragma acc loop
  while(1)  /* { dg-error "for statement expected" } */
    {
      if (i > 0) break; 
      i = i + 1;
    }
  i = 0;
  #pragma acc loop
  for(;;)  /* { dg-error "expected iteration declaration or initialization" } */
    {
      if (i > 0) break; /* { dg-error "break statement used" } */
      i = i + 1;
    }
  i = 0;
  #pragma acc loop
  do  /* { dg-error "for statement expected" } */
    {
      i = i + 1;
    }
  while (i < 4);
  #pragma acc loop
  while (i < 8)  /* { dg-error "for statement expected" } */
    {
      i = i + 1;
    }
  #pragma acc loop
  for (d = 1; d < 30; d+= 6)  /* { dg-error "invalid type for iteration variable" } */
    {
      i = d;
      a[i] = 1;
    }
  #pragma acc loop
  for (i = 1; i < 30; i++ )
    if (i == 16) break; /* { dg-error "break statement used" } */

/* different types of for loop are allowed */
  #pragma acc loop
  for (i = 1; i < 10; i++)
    {
    }
  #pragma acc loop
  for (i = 1; i < 10; i+=2)
    {
      a[i] = i;
    }

  /* after loop directive must be loop */
  #pragma acc loop
    a[1] = 1; /* { dg-error "for statement expected" } */
    for (i = 1; i < 10; i++)
      ;
  /* combined directives may be used*/
  #pragma acc parallel loop
  for(i = 1; i < 10; i++)
    {
    }
  #pragma acc kernels loop
  for(i = 1; i < 10; i++)
    {
    }
  return 0;
}
/* { dg-prune-output "sorry, unimplemented: directive not yet implemented" } */