! Test lowering of BIND(C) variables ! RUN: bbc -emit-fir %s -o - | FileCheck %s block data integer :: x, y common /fortran_name/ x, y ! CHECK-LABEL: fir.global common @c_name bind(c, name="c_name") /fortran_name/ end block data module some_module ! CHECK-LABEL: fir.global @tomato integer, bind(c, name="tomato") :: apple = 42 end module