6 lines
71 B
FortranFixed
6 lines
71 B
FortranFixed
|
INTEGER :: i = 1024
|
||
|
|
DO WHILE (i > 0)
|
||
|
|
WRITE(*,*) i
|
||
|
|
i = i / 2
|
||
|
|
END DO
|