ec1e0c5ecd
Will hit a TODO in the lowering, which there are tests added to check for this happening.
17 lines
367 B
Fortran
17 lines
367 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=50
|
|
! Test the declare mapper construct with two default mappers.
|
|
|
|
type :: t1
|
|
integer :: y
|
|
end type t1
|
|
|
|
type :: t2
|
|
real :: y, z
|
|
end type t2
|
|
|
|
!error: 'default' is already declared in this scoping unit
|
|
|
|
!$omp declare mapper(t1::x) map(x, x%y)
|
|
!$omp declare mapper(t2::w) map(w, w%y, w%z)
|
|
end
|