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

program spam
  implicit none
  do
    write(*,*) 'SPAM'
  end do
end program spam