OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [for-14.c] - Blame information for rev 154

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
// { dg-do compile }
2
 
3
extern int printf (const char *, ...);
4
extern void foo (int *);
5
 
6
int main (void)
7
{
8
  double d = 6;
9
  int i = 1, j = 6, k = 8;
10
#pragma omp parallel shared(d) private(i) num_threads (4)
11
  {
12
    i = 4;
13
#pragma omp for lastprivate(j)
14
    for (j = 1; j <= k; j++)
15
      printf ("%s %d %d %d %p %g\n", "Hello, World!", i, j, k, &j, d);
16
    printf ("%s %d %g\n", "Hello, World!", i, d);
17
  }
18
  return 0;
19
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.