program divide
        implicit none
        integer :: x
        real :: y
        x = 1
        y = x/3
        print *, y
        end program divide