Will hit a TODO in the lowering, which there are tests added to check for this happening.
11 lines
282 B
Fortran
11 lines
282 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=50
|
|
! Test the declare mapper construct with abstract type.
|
|
|
|
type, abstract :: t1
|
|
integer :: y
|
|
end type t1
|
|
|
|
!ERROR: ABSTRACT derived type may not be used here
|
|
!$omp declare mapper(mm : t1::x) map(x, x%y)
|
|
end
|