| // RUN: mlir-translate -mlir-to-llvmir %s |
| |
| module attributes {omp.is_target_device = false} { |
| llvm.func @main() { |
| %0 = llvm.mlir.constant(1 : i64) : i64 |
| %1 = llvm.alloca %0 x f32 : (i64) -> !llvm.ptr |
| %3 = llvm.alloca %0 x i32 : (i64) -> !llvm.ptr |
| %6 = omp.map.info var_ptr(%1 : !llvm.ptr, f32) map_clauses(tofrom) capture(ByRef) -> !llvm.ptr |
| %7 = omp.map.info var_ptr(%3 : !llvm.ptr, i32) map_clauses(implicit, exit_release_or_enter_alloc) capture(ByCopy) -> !llvm.ptr |
| omp.target nowait map_entries(%6 -> %arg0, %7 -> %arg1 : !llvm.ptr, !llvm.ptr) { |
| %8 = llvm.mlir.constant(0 : i64) : i64 |
| %9 = llvm.mlir.constant(100 : i32) : i32 |
| llvm.br ^bb1(%9, %8 : i32, i64) |
| ^bb1(%13: i32, %14: i64): // 2 preds: ^bb0, ^bb2 |
| %15 = llvm.icmp "sgt" %14, %8 : i64 |
| llvm.cond_br %15, ^bb2, ^bb3 |
| ^bb2: // pred: ^bb1 |
| llvm.store %13, %arg1 : i32, !llvm.ptr |
| llvm.br ^bb1(%13, %14 : i32, i64) |
| ^bb3: // pred: ^bb1 |
| llvm.store %13, %arg1 : i32, !llvm.ptr |
| omp.terminator |
| } loc(#loc3) |
| llvm.return |
| } loc(#loc2) |
| } |
| |
| #file = #llvm.di_file<"test.f90" in ""> |
| #di_null_type = #llvm.di_null_type |
| #cu = #llvm.di_compile_unit<id = distinct[0]<>, |
| sourceLanguage = DW_LANG_Fortran95, file = #file, isOptimized = false, |
| emissionKind = Full> |
| #sp_ty = #llvm.di_subroutine_type<callingConvention = DW_CC_program, |
| types = #di_null_type> |
| #sp = #llvm.di_subprogram<compileUnit = #cu, name = "main", file=#file, |
| subprogramFlags = "Definition", type = #sp_ty> |
| #sp1 = #llvm.di_subprogram<compileUnit = #cu, name = "target", file=#file, |
| subprogramFlags = "Definition", type = #sp_ty> |
| |
| #loc1 = loc("test.f90":6:7) |
| #loc2 = loc(fused<#sp>[#loc1]) |
| #loc3 = loc(fused<#sp1>[#loc1]) |
| |
