Corrected the program.

diff --git a/test/fancyquad.cupl b/test/fancyquad.cupl
index 5395af0e1ac0ff45a0433a4a3d10a8e75ad79cd4..1e2b4f7435e2938dfdcb3e6e4e32d0ab06dc3572 100644 (file)
--- a/test/fancyquad.cupl
+++ b/test/fancyquad.cupl
@@ -12,12 +12,11 @@ COMMENT     SOLVE THE QUADRATIC EQUATION AX**2 + BX + C = 0
        LET X1 = (-B+E)/(2*A)
        LET X2 = (-B-E)/(2*A)
        WRITE X1,X2
-       GO TO LAST
+       GO TO QUADSOL END
 OTHER  LET E = SQRT(-D)
        LET XREAL = -B/(2*A)
        LET XIMAG = E/(2*A)
        WRITE XREAL,XIMAG
-LAST   STOP
 QUADSOL        END
 
 *DATA  N=4