12 lines · plain
1! This test checks lowering of OpenMP declare simd Directive.2 3// RUN: not %flang_fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s4 5subroutine sub(x, y)6 real, intent(inout) :: x, y7 8 // CHECK: not yet implemented: OpenMPDeclareSimdConstruct9 !$omp declare simd(sub) aligned(x)10 x = 3.14 + y11end12