************************************************************************
*     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
