flang/test/Fir/char01.fir

   1 // RUN: fir-opt %s | tco | FileCheck %s
   2
   3 // CHECK-LABEL: @test
   4 func.func @test(%arg0 : !fir.ref<!fir.char<1>>, %arg1 : !fir.ref<!fir.char<1,?>>, %arg2 : i32) {
   5   %0 = fir.convert %arg1 : (!fir.ref<!fir.char<1,?>>) -> !fir.ref<!fir.array<?x!fir.char<1>>>
   6   // CHECK: getelementptr [1 x i8], ptr
   7   %1 = fir.coordinate_of %0, %arg2 : (!fir.ref<!fir.array<?x!fir.char<1>>>, i32) -> !fir.ref<!fir.char<1>>
   8   // CHECK: load [1 x i8], ptr
   9   %2 = fir.load %1 : !fir.ref<!fir.char<1>>
  10   // CHECK: store [1 x i8]
  11   fir.store %2 to %arg0 : !fir.ref<!fir.char<1>>
  12   // CHECK: ret void
  13   return
  14 }