[flang][openacc] Fix acc.loop lowering + re-activate tests

Author: clementval

flang/lib/Lower/OpenACC.cpp

@@ -36,7 +36,7 @@ static void genACC(Fortran::lower::AbstractConverter &absConv,
     llvm::ArrayRef<mlir::Type> argTy;
     mlir::ValueRange range;
     // Temporarly set to default 0 as operands are not generated yet.
-    llvm::SmallVector<int32_t, 2> operandSegmentSizes(/*Size=*/2,
+    llvm::SmallVector<int32_t, 2> operandSegmentSizes(/*Size=*/7,
                                                       /*Value=*/0);
     auto loopOp =
         firOpBuilder.create<mlir::acc::LoopOp>(currentLocation, argTy, range);
@@ -52,7 +52,6 @@ static void genACC(Fortran::lower::AbstractConverter &absConv,
     const auto &accClauseList =
         std::get<Fortran::parser::AccClauseList>(beginLoopDirective.t);
 
-    //
     for (const auto &clause : accClauseList.v) {
       if (const auto *collapseClause =
               std::get_if<Fortran::parser::AccClause::Collapse>(&clause.u)) {

flang/test/Lower/OpenACC/acc-loop.f90

@@ -1,7 +1,6 @@
 ! This test checks lowering of OpenACC loop directive.
 
 ! RUN: bbc -fopenacc -emit-fir %s -o - | FileCheck %s
-! XFAIL: *
 
 program acc_loop
 

flang/test/Lower/pre-fir-tree05.f90

@@ -1,5 +1,4 @@
-! RUN: bbc -fdebug-pre-fir-tree -fparse-only -fopenacc %s | FileCheck %s
-! XFAIL: *
+! RUN: bbc -I %moddir -pft-test -fopenacc -o %t %s | FileCheck %s
 
 ! Test structure of the Pre-FIR tree with OpenACC construct