program test_float
   
   integer :: i=1
   write(*,*) 'integerbol valos:',float(i)
   
end program test_float
!/Nori
