brintos / llvm-project-archived public Read only

1module mm2b2use mm2a3implicit none4private5  public :: callget56contains7  function callget5() result(ret)8    implicit none9    INTEGER :: ret10    ret = get5()11  end function callget512end module mm2b13