xref: /llvm-project/flang/test/Fir/addrof.fir (revision cc3c6b61095a47687858b21e93d1a2fc3a6e192b)
1// RUN: tco %s | FileCheck %s
2// RUN: %flang_fc1 -emit-llvm %s -o - | FileCheck %s
3
4// CHECK: @var_x = external global i32
5fir.global @var_x : !fir.int<4> {}
6
7// CHECK-LABEL: define ptr @getAddressOfX
8func.func @getAddressOfX() -> !fir.ref<!fir.int<4>> {
9  %1 = fir.address_of(@var_x) : !fir.ref<!fir.int<4>>
10  // CHECK: ret ptr @var_x
11  return %1 : !fir.ref<!fir.int<4>>
12}
13