Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/atomic_rw-1.c @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do run } */ #include <stdlib.h> int main(int argc, char **argv) { int v1, v2; int x; x = 99; #pragma acc parallel copy (v1, v2, x) { #pragma acc atomic read v1 = x; #pragma acc atomic write x = 32; #pragma acc atomic read v2 = x; } if (v1 != 99) abort (); if (v2 != 32) abort (); return 0; }