30 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module mod03 interface proc4 module procedure proc5 end interface6 contains7 subroutine proc8 end9end10module mod111 use mod0,renamed_proc=>proc12 procedure(renamed_proc),pointer :: p13end module14 15!Expect: mod0.mod16!module mod017!interface proc18!procedure::proc19!end interface20!contains21!subroutine proc()22!end23!end24 25!Expect: mod1.mod26!module mod127!use mod0,only:renamed_proc=>proc28!procedure(renamed_proc),pointer::p29!end30