RosettaCodeData/Task/Loops-Infinite/Fortran/loops-infinite-1.f

4 lines
49 B
FortranFixed
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
10 WRITE(*,*) 'SPAM'
GO TO 10
2013-04-10 21:29:02 -07:00
END