program logif
 integer :: x,abs_x
 x=-2
 abs_x=x
 
 if (x < 0.0) abs_x=-x
 
 write(*,*) abs_x

end program logif
!/Anna, Nori
