program ch32_under
implicit none
   integer::i
   real:: small=0.0
   do i=0,50
      small = 10.0**(-i)
      print *,'i= ',i,'small = ',small
   end do
end program ch32_under