program test
     integer :: i
     real :: r
     integer(kind = 8) :: l
     real(kind = 8) :: d
     i = 10
     r = i
     print *, r
     l = i
     print *, l
     d = r
     print *, d
end program test
