program calculate
    implicit none
! a simple calculator
    real :: x,y,z,answer
    x=1.5
    y=2.5
    z=3.5
    answer=x+y/z
    print *,'result is ',answer
end program calculate