Program BigNegInt
! by Richard Maine as posted at comp.lang.fortran on 28 July 2008.
  integer :: i = -huge(i)-1
  write(*,*) "I=",i
  write(*,'(1x,z8)') i
End Program BigNegInt