program base_conversion implicit none real :: x1 = 1.0 real :: x2 = 0.1 real :: x3 = 0.01 real :: x4 = 0.001 real :: x5 = 0.0001 print *, ' ', x1 print *, ' ', x2 print *, ' ', x3 print *, ' ', x4 print *, ' ', x5 end program base_conversion