| ! This test checks lowering of OpenMP declare simd Directive. | |
| // RUN: not flang-new -fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s | |
| subroutine sub(x, y) | |
| real, intent(inout) :: x, y | |
| // CHECK: not yet implemented: OpenMPDeclareSimdConstruct | |
| !$omp declare simd(sub) aligned(x) | |
| x = 3.14 + y | |
| end |