| ! 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 | |
| !ERROR: Reference to object with abstract derived type 't1' must be polymorphic | |
| !$omp declare mapper(mm : t1::x) map(x, x%y) | |
| end |