program ch32_over2
use, intrinsic:: ieee_exceptions, only: ieee_overflow, ieee_set_halting_mode
implicit none
   integer::i
   real:: large=0.0
   !
   ! set the halting mode to continue even if there is overflow
   !
   call ieee_set_halting_mode(ieee_overflow, .false.)
   do i=0,50
      large = 10.0**i
      print *,'i= ',i,'large = ',large
   end do
end program ch32_over2