program ch32_over1
implicit none
   integer::i
   real:: large=0.0
   do i=0,50
      large = 10.0**i
      print *,'i= ',i,'large = ',large
   end do
end program ch32_over1