61 lines · plain
1! RUN: split-file %s %t2! RUN: bbc -emit-fir %t/mangling_mod_a.f90 -o - | FileCheck %s --check-prefix=FIR3! RUN: bbc -emit-fir %t/mangling_mod_b.f90 -o - | FileCheck %s --check-prefix=MANGLE4! RUN: bbc -emit-fir %t/mangling_mod_c.f90 -o - | FileCheck %s --check-prefix=MANGLE5! RUN: bbc -emit-fir %t/mangling_mod_d.f90 -o - | FileCheck %s --check-prefix=MANGLE6 7! FIR: module8! MANGLE: func.func private @_QPmy_sub(!fir.ref<i32>)9 10!--- mangling_mod_a.f9011module mangling_mod_a12 interface13 subroutine my_sub(a)14 integer :: a15 end subroutine my_sub16 end interface17 18 ! Generic interface19 interface my_sub20 procedure :: my_sub21 end interface22 contains23end module mangling_mod_a24 25!--- mangling_mod_b.f9026module mangling_mod_b27 use mangling_mod_a28 29 contains30 subroutine my_sub2(a)31 integer :: a32 call my_sub(a)33 end subroutine my_sub234 35end module mangling_mod_b36 37!--- mangling_mod_c.f9038module mangling_mod_c39 use mangling_mod_b40 41 contains42 subroutine my_sub3(a)43 integer :: a44 45 call my_sub(a)46 end subroutine my_sub347end module mangling_mod_c48 49!--- mangling_mod_d.f9050module mangling_mod_d51 use mangling_mod_b52 use mangling_mod_c53 54 contains55 subroutine my_sub4(a)56 integer :: a57 58 call my_sub(a)59 end subroutine my_sub460end module mangling_mod_d61