Will hit a TODO in the lowering, which there are tests added to check for this happening.
9 lines
226 B
Fortran
9 lines
226 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=50
|
|
! Test the declare mapper with non-derived type.
|
|
|
|
integer :: y
|
|
|
|
!ERROR: Type is not a derived type
|
|
!$omp declare mapper(mm : integer::x) map(x, y)
|
|
end
|