Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/c-c++-common/goacc/nesting-1.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
line wrap: on
line source

extern int i;

void
f_acc_parallel (void)
{
#pragma acc parallel
  {
#pragma acc loop
    for (i = 0; i < 2; ++i)
      ;
  }
}


void
f_acc_kernels (void)
{
#pragma acc kernels
  {
#pragma acc loop
    for (i = 0; i < 2; ++i)
      ;
  }
}


void
f_acc_data (void)
{
#pragma acc data
  {
#pragma acc parallel
    ;

#pragma acc parallel
    {
#pragma acc loop
      for (i = 0; i < 2; ++i)
	;
    }

#pragma acc kernels
    ;

#pragma acc kernels
    {
#pragma acc loop
      for (i = 0; i < 2; ++i)
	;
    }

#pragma acc data
    ;

#pragma acc update host(i)

#pragma acc enter data copyin(i)

#pragma acc exit data delete(i)

#pragma acc data
    {
#pragma acc parallel
      ;

#pragma acc parallel
      {
#pragma acc loop
	for (i = 0; i < 2; ++i)
	  ;
      }

#pragma acc kernels
      ;

#pragma acc kernels
      {
#pragma acc loop
	for (i = 0; i < 2; ++i)
	  ;
      }

#pragma acc data
      ;

#pragma acc update host(i)

#pragma acc enter data copyin(i)

#pragma acc exit data delete(i)
    }
  }
}