1*83ca78deSPeter Klausler! RUN: %python %S/test_modfile.py %s %flang_fc1 2*83ca78deSPeter Klauslermodule mod0 3*83ca78deSPeter Klausler interface proc 4*83ca78deSPeter Klausler module procedure proc 5*83ca78deSPeter Klausler end interface 6*83ca78deSPeter Klausler contains 7*83ca78deSPeter Klausler subroutine proc 8*83ca78deSPeter Klausler end 9*83ca78deSPeter Klauslerend 10*83ca78deSPeter Klauslermodule mod1 11*83ca78deSPeter Klausler use mod0,renamed_proc=>proc 12*83ca78deSPeter Klausler procedure(renamed_proc),pointer :: p 13*83ca78deSPeter Klauslerend module 14*83ca78deSPeter Klausler 15*83ca78deSPeter Klausler!Expect: mod0.mod 16*83ca78deSPeter Klausler!module mod0 17*83ca78deSPeter Klausler!interface proc 18*83ca78deSPeter Klausler!procedure::proc 19*83ca78deSPeter Klausler!end interface 20*83ca78deSPeter Klausler!contains 21*83ca78deSPeter Klausler!subroutine proc() 22*83ca78deSPeter Klausler!end 23*83ca78deSPeter Klausler!end 24*83ca78deSPeter Klausler 25*83ca78deSPeter Klausler!Expect: mod1.mod 26*83ca78deSPeter Klausler!module mod1 27*83ca78deSPeter Klausler!use mod0,only:renamed_proc=>proc 28*83ca78deSPeter Klausler!procedure(renamed_proc),pointer::p 29*83ca78deSPeter Klausler!end 30