SIGN (The GNU Fortran Compiler) (original) (raw)

program test_sign print *, sign(-12,1) print *, sign(-12,0) print *, sign(-12,-1)

print *, sign(-12.,1.) print *, sign(-12.,0.) print *, sign(-12.,-1.) end program test_sign