program check
!Integer and real arithmetic
    implicit none
    real        :: x,y
    integer     :: i
    x=2.0
    i=2
    y=x*((2**i)/3)
    print *,y
    y=x*((2.0**i)/3)
    print *,y
    end program check