25 lines · plain
1! Test that internal procedure with BIND(C) do not have binding labels,2! that is, that they are generated using usual flang mangling for non BIND(C)3! internal procedures.4! RUN: bbc -emit-hlfir %s -o - | FileCheck %s5 6!CHECK: func.func private @_QFsub1Pfoo(%{{.*}}: i327subroutine sub1()8 call foo(42)9contains10 subroutine foo(i) bind(c)11 integer, value :: i12 print *, i13 end subroutine14end subroutine15 16!CHECK: func.func private @_QFsub2Pfoo(%{{.*}}: i6417subroutine sub2()18 call foo(42_8)19contains20 subroutine foo(i) bind(c)21 integer(8), value :: i22 print *, i23 end subroutine24end subroutine25