C                         Domain.f
C        THIS PROGRAM IS TO COMPUTE SINE(X). IT CONTAINS AN INCORRECT TRANSFER 
C	 STATEMENT WHICH CAUSES A DOMAIN ERROR. 
C	 Note that incorrect statements and their corrections are indicated by comments.
          DOUBLE PRECISION FUNCTION SINE (X, E)
C         THIS DECLARATION COMPUTES SIN(X) TO ACCURACY E
          DOUBLE PRECISION E, TERM, SUM
          REAL X
          TERM = X
          SUM = X
          DO 20 I = 3, 100, 2
            TERM = TERM * X**2/(I*(I-1))
            SUM = SUM +((-1)**(I/2)*TERM
C    	  Incorrect  
	    IF (TERM.LT.E) GOTO 30               
C         Correct
C           IF (DABS(TERM) .LT.E) GOTO 30        
  20      CONTINUE
  30      SINE = SUM
          RETURN
          END