14 lines · plain
1! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s2 3! CHECK: not yet implemented: OmpAllocateClause ALIGN modifier4program p5 integer :: x6 integer :: a7 integer :: i8 !$omp parallel private(x) allocate(align(4): x)9 do i=1,1010 a = a + i11 end do12 !$omp end parallel13end program p14