update Fortran codegen_readable to support while