implicit real *4 (a-h,o-z)
	integer i
	integer *4 j
c
	i=2**40
	j=2**40
c
	write(*,*) i
	write(*,*) j
c
	stop
	end