1/* { dg-additional-options "-fdump-tree-original" } */
2
3void
4f (char *cp)
5{
6#pragma acc parallel pcopyin(cp[4:6])
7  ;
8}
9
10/* { dg-final { scan-tree-dump-times "#pragma acc parallel map\\(to:\\*\\(cp \\+ 4\\) \\\[len: 6]\\) map\\(alloc:cp \\\[pointer assign, bias: 4]\\)" 1 "original" } } */
11/* { dg-final { cleanup-tree-dump "original" } } */
12