view libgomp/testsuite/libgomp.oacc-c-c++-common/collapse-2.c @ 138:fc828634a951

merge
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 08 Nov 2018 14:17:14 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* { dg-do run } */

#include <stdlib.h>

int
main (void)
{
  int i, j, k, l = 0, f = 0, x = 0;
  int m1 = 4, m2 = -5, m3 = 17;

#pragma acc parallel
  #pragma acc loop seq collapse(3) reduction(+:l)
    for (i = -2; i < m1; i++)
      for (j = m2; j < -2; j++)
	{
	  for (k = 13; k < m3; k++)
	    {
              if ((i + 2) * 12 + (j + 5) * 4 + (k - 13) !=  9 + f++)
		l++;
	    }
	}

    for (i = -2; i < m1; i++)
      for (j = m2; j < -2; j++)
	{
	  for (k = 13; k < m3; k++)
	    {
              if ((i + 2) * 12 + (j + 5) * 4 + (k - 13) !=  9 + f++)
		x++;
	    }
	}

  if (l != x)
    abort ();

  return 0;
}