implicit none

 integer :: i

 i=-2**31
 print*,i
 i=i-1
 print*,i

 end