1! Test lowering of BIND(C) variables
2! RUN: bbc -emit-fir %s -o - | FileCheck %s
3
4block data
5   integer :: x, y
6   common /fortran_name/ x, y
7   ! CHECK-LABEL: fir.global common @c_name
8   bind(c, name="c_name") /fortran_name/
9end block data
10
11module some_module
12   ! CHECK-LABEL: fir.global @tomato
13  integer, bind(c, name="tomato") :: apple = 42
14end module
15