real :: a a=6 if a>2 then a=a+0.5 endif print a