15 lines · plain
1! Test lowering of BIND(C) variables2! RUN: bbc -emit-fir %s -o - | FileCheck %s3 4block data5 integer :: x, y6 common /fortran_name/ x, y7 ! CHECK-LABEL: fir.global common @c_name8 bind(c, name="c_name") /fortran_name/9end block data10 11module some_module12 ! CHECK-LABEL: fir.global @tomato13 integer, bind(c, name="tomato") :: apple = 4214end module15