17 lines · plain
1! REQUIRES: openmp_runtime2! RUN: %not_todo_cmd %flang_fc1 -emit-llvm %openmp_flags -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s3 4! CHECK: not yet implemented: Unhandled clause allocate in omp.parallel5! CHECK: LLVM Translation failed for operation: omp.parallel6program p7 use omp_lib8 integer :: x9 integer :: a10 integer :: i11 !$omp parallel private(x) allocate(allocator(omp_default_mem_alloc): x)12 do i=1,1013 a = a + i14 end do15 !$omp end parallel16end program p17