Fortran : sign

program main
implicit none
if (-0.0 == 0.0) write(*,*) "for other manipulations they are indentical "
! don't do such thing for real variables
if (sign(2.0, -0.0) < sign(2.0, 0.0)) write (*,*)"for sign intrinsic procedure they are different"

end program main 
!integer zero wil be taken an positive