1module mm2b 2use mm2a 3implicit none 4private 5 public :: callget5 6contains 7 function callget5() result(ret) 8 implicit none 9 INTEGER :: ret 10 ret = get5() 11 end function callget5 12end module mm2b 13