blob: 23d7fb7e48ab96708ae3b63b5bf425091ebeb38c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
implicit none
character(len=10) :: str1, str2(5,5)
type t
character(len=10) :: str1, str2(5,5)
end type t
type(t) :: v
!$omp target enter data map(to: str1) ! OK
!$omp target enter data map(to: str2) ! OK
!$omp target enter data map(to: str2(2,5)) ! OK
!$omp target enter data map(to: str1(2,5)) ! { dg-error "Syntax error in OpenMP variable list" }
!$omp target enter data map(to: str2(1,2)(2:4)) ! { dg-error "Unexpected substring reference in MAP clause" }
!$omp target enter data map(to: v%str1) ! OK
!$omp target enter data map(to: v%str2) ! OK
!$omp target enter data map(to: v%str2(1,2)) ! OK
!$omp target enter data map(to: v%str1(2:5)) ! { dg-error "Unexpected substring reference in MAP clause" }
!$omp target enter data map(to: v%str2(1,2)(2:4)) ! { dg-error "Unexpected substring reference in MAP clause" }
end
|
