gcc/testsuite/gfortran.dg/gomp/substring.f90

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