program MyProgram | |
!implicit none | |
use module1, renamed_in_1 => rename_this | |
use module2, only: say_konnichiwa, renamed_in_2 => rename_this | |
call start | |
call say_hi | |
call say_bye | |
call say_konnichiwa | |
!call say_sayonara | |
call renamed_in_1 | |
call renamed_in_2 | |
stop | |
contains | |
subroutine start | |
implicit none | |
integer :: i | |
print *, i | |
end subroutine | |
end |