PROGRAM machine_constants_int
  IMPLICIT NONE
  INTEGER (KIND = 1) :: i1
  INTEGER (KIND = 2) :: i2
  INTEGER (KIND = 4) :: i3
  INTEGER (KIND = 8) :: i4
  I1 = 23; I2 = 45; I3 = 78 ; I4 = 90
  WRITE (*,*) 'Machine constants for integer &
		&variables with different kind values'
  WRITE (*,*) 'Default integer kind value: ', &
							KIND(1)
  WRITE (*,'(/''   ikv   Digits            Huge &
		 &Range''/)')
  WRITE(*,'(3x,i1,i7,i20,i6)') KIND(i1), DIGITS(i1), HUGE(i1),&
     & RANGE(i1)
  WRITE(*,'(3x,i1,i7,i20,i6)') KIND(i2), DIGITS(i2), HUGE(i2),&
     & RANGE(i2)
  WRITE(*,'(3x,i1,i7,i20,i6)') KIND(i3), DIGITS(i3), HUGE(i3),&
     & RANGE(i3)
  WRITE(*,'(3x,i1,i7,i20,i6)') KIND(i4), DIGITS(i4), HUGE(i4),&
     & RANGE(i4)
  STOP
END PROGRAM machine_constants_int