5 ! Fortran 77 just had: "The value of a signed zero is the same as
6 ! the value of an unsigned zero." and g77 returned for SIGN(1.0, -0.0) = 1.0
8 ! Fortran 95+ has for SIGN: "Case (iv): If B is of type real and is zero,
9 ! then ... (c) If B is negative real zero, the value of the result is -|A|".
10 ! On architectures, where signed zeros are supported, gfortran's SIGN thus
11 ! returns for B=-0.0 the -|A|.
16 if (x
/= 1.) call abort()
17 if (y
/= -1.) call abort()
22 if (x
/= 1.) call abort()
23 if (y
/= -1.) call abort()