55 lines · plain
1// RUN: fir-opt --strict-fir-volatile-verifier --fir-to-llvm-ir %s | FileCheck %s2func.func @_QQmain() {3 %0 = fir.alloca !fir.box<!fir.array<10xi32>, volatile>4 %c1 = arith.constant 1 : index5 %c5_i32 = arith.constant 5 : i326 %c10 = arith.constant 10 : index7 %1 = fir.address_of(@_QFEa) : !fir.ref<!fir.array<10xi32>>8 %2 = fir.volatile_cast %1 : (!fir.ref<!fir.array<10xi32>>) -> !fir.ref<!fir.array<10xi32>, volatile>9 %3 = fir.address_of(@_QFEb) : !fir.ref<!fir.array<10xi32>>10 %4 = fir.volatile_cast %3 : (!fir.ref<!fir.array<10xi32>>) -> !fir.ref<!fir.array<10xi32>, volatile>11 %5 = arith.subi %c10, %c1 : index12 %6 = arith.addi %5, %c1 : index13 %7 = arith.divsi %6, %c1 : index14 cf.br ^bb1(%c1, %7 : index, index)15^bb1(%8: index, %9: index): // 2 preds: ^bb0, ^bb216 %c0 = arith.constant 0 : index17 %10 = arith.cmpi sgt, %9, %c0 : index18 cf.cond_br %10, ^bb2, ^bb319^bb2: // pred: ^bb120 %11 = fircg.ext_array_coor %4(%c10)<%8> : (!fir.ref<!fir.array<10xi32>, volatile>, index, index) -> !fir.ref<i32, volatile>21 fir.store %c5_i32 to %11 : !fir.ref<i32, volatile>22 %12 = arith.addi %8, %c1 overflow<nsw> : index23 %c1_0 = arith.constant 1 : index24 %13 = arith.subi %9, %c1_0 : index25 cf.br ^bb1(%12, %13 : index, index)26^bb3: // pred: ^bb127 %14 = fircg.ext_embox %4(%c10) : (!fir.ref<!fir.array<10xi32>, volatile>, index) -> !fir.box<!fir.array<10xi32>, volatile>28 %15 = fircg.ext_embox %2(%c10) : (!fir.ref<!fir.array<10xi32>, volatile>, index) -> !fir.box<!fir.array<10xi32>, volatile>29 fir.store %15 to %0 : !fir.ref<!fir.box<!fir.array<10xi32>, volatile>>30 %16 = fir.address_of(@_QQclX8b2af12247fe2a74a66d92bb35ca5038) : !fir.ref<!fir.char<1,13>>31 %c3_i32 = arith.constant 3 : i3232 %17 = fir.convert %0 : (!fir.ref<!fir.box<!fir.array<10xi32>, volatile>>) -> !fir.ref<!fir.box<none>>33 %18 = fir.volatile_cast %14 : (!fir.box<!fir.array<10xi32>, volatile>) -> !fir.box<!fir.array<10xi32>>34 %19 = fir.convert %18 : (!fir.box<!fir.array<10xi32>>) -> !fir.box<none>35 %20 = fir.convert %16 : (!fir.ref<!fir.char<1,13>>) -> !fir.ref<i8>36 fir.call @_FortranAAssign(%17, %19, %20, %c3_i32) : (!fir.ref<!fir.box<none>>, !fir.box<none>, !fir.ref<i8>, i32) -> ()37 return38}39fir.global internal @_QFEa : !fir.array<10xi32> {40 %0 = fir.zero_bits !fir.array<10xi32>41 fir.has_value %0 : !fir.array<10xi32>42}43fir.global internal @_QFEb : !fir.array<10xi32> {44 %0 = fir.zero_bits !fir.array<10xi32>45 fir.has_value %0 : !fir.array<10xi32>46}47func.func private @_FortranAAssign(!fir.ref<!fir.box<none>>, !fir.box<none>, !fir.ref<i8>, i32) attributes {fir.runtime}48fir.global linkonce @_QQclX8b2af12247fe2a74a66d92bb35ca5038 constant : !fir.char<1,13> {49 %0 = fir.string_lit "filename.f90\00"(13) : !fir.char<1,13>50 fir.has_value %0 : !fir.char<1,13>51}52// CHECK-LABEL: llvm.func @_QQmain() {53// CHECK: llvm.store volatile %{{.+}}, %{{.+}} : i32, !llvm.ptr54// CHECK: "llvm.intr.memcpy"(%{{.+}}, %{{.+}}, %{{.+}}) <{isVolatile = true}> : (!llvm.ptr, !llvm.ptr, i32) -> ()55