URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [nosigned_zero_1.f90] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
!
! PR fortran/40675
!
! Fortran 77 just had: "The value of a signed zero is the same as
! the value of an unsigned zero." and g77 returned for SIGN(1.0, -0.0) = 1.0
!
! Fortran 95+ has for SIGN: "Case (iv): If B is of type real and is zero,
! then ... (c) If B is negative real zero, the value of the result is -|A|".
! On architectures, where signed zeros are supported, gfortran's SIGN thus
! returns for B=-0.0 the -|A|.
!
program s
x = sign(1.,0.)
y = sign(1.,-0.)
if (x /= 1.) call abort()
if (y /= -1.) call abort()
x = 1.
y = 0.
x = sign(x, y)
y = sign(x, -y)
if (x /= 1.) call abort()
if (y /= -1.) call abort()
end program s
Go to most recent revision | Compare with Previous | Blame | View Log