1module mm2a 2implicit none 3private 4 public :: get5 5contains 6 function get5() result(ret) 7 integer :: ret 8 ret = 5 9 end function get5 10end module mm2a 11