program test_overflow
implicit none
real(4):: x, y
x = 3.1E38
write(*,*) 'x = ', x
y = x + 1.3E38
write(*,*) 'y = ', y  ! +Infinity
end program