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