... A hundred years later, a handful of Tunguska-sized asteroids have been spotted by telescopes, but most remain unseen. The asteroid designated 2008 TC3 , which made the news on October 6th before colliding with the Earth on October 7th was too small to constitute a part of the "Earth impact hazard". ... 2008 TC3, for example, finally exploded in the atmosphere above Sudan . ... Wednesday, 8 October 2008 01:15 . International Year of Astronomy, Ireland National Node . ...

As conditional or control statements you have IF in many variants (but essentially not changed from Fortran 77), DO (with some new variants) and the completely new statement CASE . The DO- loop should now be ended with the statement END DO and we no longer need any statement number. In addition, we can use the statement EXIT to jump out of the DO -loop and CYCLE in order to go to the next iteration of the present DO -loop. ... all negative numbers WRITE (*,*) 'Negative number' CASE (0) ! ...