编辑代码

program main
    character(10) :: num_char
    integer       :: num_int,i
	print *, "Hello  JSRUN    - from gfrotran"
    
    num_char = "0000784"
    read(num_char,*) num_int
    print *,num_int
    
    do i = 1,5
        write(num_char,"(I4)") i
        print *,"mixedflow[exe-id = "//trim(adjustl(num_char))//"] : The exit identifier is incorrect!"
        !print *,i
    end do

    
end program main