Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/vprop.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 <assert.h> #define test(type) \ void \ test_##type () \ { \ signed type b[100]; \ signed type i, j, x = -1, y = -1; \ \ _Pragma("acc parallel loop copyout (b)") \ for (j = 0; j > -5; j--) \ { \ type c = x+y; \ _Pragma("acc loop vector") \ for (i = 0; i < 20; i++) \ b[-j*20 + i] = c; \ b[5-j] = c; \ } \ \ for (i = 0; i < 100; i++) \ assert (b[i] == -2); \ } test(char) test(short) int main () { test_char (); test_short (); return 0; }