PROGRAM arith1 ! ! Author: Br. David Carlson ! ! Date: January 3, 2000 ! ! Revised: May 2, 2004 ! ! This program tries some integer arithmetic. IMPLICIT NONE INTEGER::k, largest, num k = 1 largest = HUGE(k) num = largest + 1 WRITE (*, *) 'The largest integer is: ', largest WRITE (*, *) 'The largest integer plus 1 is: ', num num = num - 1 WRITE (*, *) 'The last value minus 1 is: ', num END PROGRAM