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