C----------------------------------------------------------------------
C  A demo program to show how to change the value of 1.0
C
      DO 10 I=1,10
        A=FCN(1.0)
        WRITE(*,*)A,1.0
   10 CONTINUE
      STOP
      END

      REAL FUNCTION FCN(A)
      A=A+1.0
      FCN=A
      END
