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