1  /* { dg-do run } */
       2  
       3  #include <assert.h>
       4  
       5  #define test(type)				\
       6  void						\
       7  test_##type ()					\
       8  {						\
       9    signed type b[100];				\
      10    signed type i, j, x = -1, y = -1;		\
      11  						\
      12    _Pragma("acc parallel loop copyout (b)")	\
      13    for (j = 0; j > -5; j--)			\
      14      {						\
      15        type c = x+y;                             \
      16        _Pragma("acc loop vector")		\
      17        for (i = 0; i < 20; i++)			\
      18  	b[-j*20 + i] = c;			\
      19        b[5-j] = c;                               \
      20      }						\
      21  						\
      22    for (i = 0; i < 100; i++)			\
      23      assert (b[i] == -2);			\
      24  }
      25  
      26  test(char)
      27  test(short)
      28  
      29  int
      30  main ()
      31  {
      32    test_char ();
      33    test_short ();
      34  
      35    return 0;
      36  }