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