Hello all,
In ifc compiler vesion 7, the simple code below produces a progress bar (kind of) by adding a #-mark to the line every cycle of the ii variable.
This is what I want; however, the latest compiler version, ifort, produces no output until the loops are finished and that writes the whole bar at once.
How can I get back my slowly progressing bar in ifort?
PROGRAM testbar
!print progress bar to show current progress of window processing
INTEGER :: ii,jj
REAL :: number
number=1.
DO ii=1,100
WRITE(*,'(A)', ADVANCE='NO') "#"
DO jj=1,1000000000
number=SQRT(number)
END DO
END DO
WRITE(*,*)
END PROGRAM testbar
