Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/c-c++-common/goacc/nesting-1.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
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)
    }
  }
}