RosettaCodeData/Task/Loops-Infinite/Fortran/loops-infinite-1.f
2015-02-20 00:35:01 -05:00

3 lines
49 B
Fortran

10 WRITE(*,*) 'SPAM'
GO TO 10
END