INTEGER :: number = 7125
WRITE(*,"(I8.8)") number   ! Prints 00007125