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