************************************************************************ * Demonstrates semantics of 'sign' intrinsic. ************************************************************************ program demosign implicit none write(0,*) 'sign(3.14d0,1.0d0) = ', & sign(3.14d0,1.0d0) write(0,*) 'sign(3.14d0,-1.0d0) = ', & sign(3.14d0,-1.0d0) write(0,*) 'sign(1.0d0,2.784d0) = ', & sign(1.0d0,2.784d0) write(0,*) 'sign(1.0d0,-2.784d0) = ', & sign(1.0d0,-2.784d0) stop end