forked from OSchip/llvm-project
15 lines
358 B
Fortran
15 lines
358 B
Fortran
! 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
|