program ex0303
 implicit none
 real :: a, b
 a = 100000.0
 b = 0.0001
 write (*,*)  a, ' + ', b,  ' = ', a + b
 stop
 end program ex0303