22 lines · plain
1! Chekc that BIND(C) is carried over to the fir.call2! RUN: bbc -emit-hlfir %s -o - | FileCheck %s3 4module mod5 interface6 complex(kind=4) function foo4c(j) bind(c)7 integer, intent(in),value :: j8 end function foo4c9 end interface10end module mod11 12program main13 use mod14 procedure(foo4c), pointer :: fptr4c15 complex(kind=4) :: res416 fptr4c => foo4c17 res4 = fptr4c(6)18end19 20! CHECK-LABEL: func.func @_QQmain()21! CHECK: fir.call %{{.*}}(%{{.*}}) proc_attrs<bind_c> fastmath<contract> : (i32) -> complex<f32>22