c
c Hello, world.
c
Program Hello
implicit none
logical DONE
DO while (.NOT. DONE)
write(*,10)
END DO
10 format('Hello, world.')
END
PROGRAM HLWRLD DO WHILE (1 .EQ. 1) PRINT *, 'Hello, World!' END DO STOP END