1*f35f863aSjeanPerier! RUN: bbc %s -o "-" -emit-fir -hlfir=false | FileCheck %s 2e28e1b4bSValentin Clement! Test lowering of calls to procedures with implicit interfaces using different 3e28e1b4bSValentin Clement! calls with different argument types, one of which is character 4e28e1b4bSValentin Clementsubroutine s2 5e28e1b4bSValentin Clement integer i(3) 6e28e1b4bSValentin Clement! CHECK: %[[a0:.*]] = fir.alloca !fir.array<3xi32> {bindc_name = "i", uniq_name = "_QFs2Ei"} 74cc9437aSTom Eccles ! CHECK: fir.call @_QPsub2(%[[a0]]) {{.*}}: (!fir.ref<!fir.array<3xi32>>) -> () 8e28e1b4bSValentin Clement call sub2(i) 9fd389f46SFabian Mora! CHECK: %[[a1:.*]] = fir.address_of(@_QQclX3031323334) : !fir.ref<!fir.char<1,5>> 10c0cb8f73SjeanPerier! CHECK: %[[a2:.*]] = fir.convert %[[a1]] : (!fir.ref<!fir.char<1,5>>) -> !fir.ref<!fir.array<3xi32>> 11c0cb8f73SjeanPerier ! CHECK: fir.call @_QPsub2(%[[a2]]) {{.*}}: (!fir.ref<!fir.array<3xi32>>) -> () 12e28e1b4bSValentin Clement call sub2("01234") 13e28e1b4bSValentin Clementend 14