llvm/flang/test/Lower/c-interoperability-bindc-variables.f90

! 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