program smpl4
        implicit none
        integer max
        real var1,var2,xmax
	max = 3
	var2 = 15.6
	xmax = real(max)
	var1 = xmax + var2
	write(*,*) var1
        stop
	end program smpl4