1! PR fortran/92568
2!
3! { dg-additional-options "-fdump-tree-original" }
4! { dg-additional-options "-fdump-tree-gimple" }
5implicit none
6  integer :: ii, aa, pp
7  allocatable :: aa
8  pointer :: pp
9  character :: str
10  character(len=2) :: str2
11
12!$omp target
13  ii = 1
14  aa = 5
15  pp = 7
16  str = '1'
17  str2 = '12'
18!$omp end target
19end
20! { dg-final { scan-tree-dump-times "firstprivate\\(ii\\)" 1 "gimple" } }
21! { dg-final { scan-tree-dump-times "map\\(tofrom:\\*aa" 1 "gimple" } }
22! { dg-final { scan-tree-dump-times "map\\(tofrom:\\*pp" 1 "gimple" } }
23! { dg-final { scan-tree-dump-times "map\\(tofrom:str2 \\\[len:" 1 "gimple" } }
24! { dg-final { scan-tree-dump-times "map\\(tofrom:str \\\[len:" 1 "gimple" } }
25