12 lines
301 B
Fortran
12 lines
301 B
Fortran
|
! 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
|