URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [atomic-12.c] - Rev 766
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ extern void abort (void); _Bool v, x1, x2, x3, x4, x5, x6; void foo (void) { #pragma omp atomic capture v = ++x1; if (!v) abort (); #pragma omp atomic capture v = x2++; if (v) abort (); #pragma omp atomic capture v = --x3; if (v) abort (); #pragma omp atomic capture v = x4--; if (!v) abort (); #pragma omp atomic capture { v = x5; x5 |= 1; } if (v) abort (); #pragma omp atomic capture { x6 |= 1; v = x6; } if (!v) abort (); } void bar (void) { #pragma omp atomic write x1 = 0; #pragma omp atomic write x2 = 0; #pragma omp atomic write x3 = 1; #pragma omp atomic write x4 = 1; #pragma omp atomic capture { ++x1; v = x1; } if (!v) abort (); #pragma omp atomic capture { v = x2; x2++; } if (v) abort (); #pragma omp atomic capture { --x3; v = x3; } if (v) abort (); #pragma omp atomic capture { v = x4; x4--; } if (!v) abort (); #pragma omp atomic write x1 = 0; #pragma omp atomic write x2 = 0; #pragma omp atomic write x3 = 1; #pragma omp atomic write x4 = 1; #pragma omp atomic capture { x1++; v = x1; } if (!v) abort (); #pragma omp atomic capture { v = x2; ++x2; } if (v) abort (); #pragma omp atomic capture { x3--; v = x3; } if (v) abort (); #pragma omp atomic capture { v = x4; --x4; } if (!v) abort (); } int main () { #pragma omp atomic write x3 = 1; #pragma omp atomic write x4 = 1; foo (); bar (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log