Remove redundant IF in TESTING/LIN/*chkrfp.f

echeresh · echeresh · commit 13e3907347d4 · 2017-03-26T19:04:36.000-07:00
diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f
@@ -217,11 +217,6 @@ PROGRAM CCHKRFP
          WRITE( NOUT, FMT = 9999 )
          STOP
       END IF
-*
-      IF( FATAL ) THEN
-         WRITE( NOUT, FMT = 9999 )
-         STOP
-      END IF
 *
 *     Calculate and print the machine dependent constants.
 *
diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f
@@ -216,11 +216,6 @@ PROGRAM DCHKRFP
          WRITE( NOUT, FMT = 9999 )
          STOP
       END IF
-*
-      IF( FATAL ) THEN
-         WRITE( NOUT, FMT = 9999 )
-         STOP
-      END IF
 *
 *     Calculate and print the machine dependent constants.
 *
diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f
@@ -215,11 +215,6 @@ PROGRAM SCHKRFP
          WRITE( NOUT, FMT = 9999 )
          STOP
       END IF
-*
-      IF( FATAL ) THEN
-         WRITE( NOUT, FMT = 9999 )
-         STOP
-      END IF
 *
 *     Calculate and print the machine dependent constants.
 *
diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f
@@ -217,11 +217,6 @@ PROGRAM ZCHKRFP
          WRITE( NOUT, FMT = 9999 )
          STOP
       END IF
-*
-      IF( FATAL ) THEN
-         WRITE( NOUT, FMT = 9999 )
-         STOP
-      END IF
 *
 *     Calculate and print the machine dependent constants.
 *

Original file line number	Diff line number	Diff line change
`@@ -217,11 +217,6 @@ PROGRAM CCHKRFP`
`217`	`217`	`WRITE( NOUT, FMT = 9999 )`
`218`	`218`	`STOP`
`219`	`219`	`END IF`
`220`		`-*`
`221`		`- IF( FATAL ) THEN`
`222`		`- WRITE( NOUT, FMT = 9999 )`
`223`		`- STOP`
`224`		`- END IF`
`225`	`220`	`*`
`226`	`221`	`* Calculate and print the machine dependent constants.`
`227`	`222`	`*`
Original file line number	Diff line number	Diff line change
`@@ -216,11 +216,6 @@ PROGRAM DCHKRFP`
`216`	`216`	`WRITE( NOUT, FMT = 9999 )`
`217`	`217`	`STOP`
`218`	`218`	`END IF`
`219`		`-*`
`220`		`- IF( FATAL ) THEN`
`221`		`- WRITE( NOUT, FMT = 9999 )`
`222`		`- STOP`
`223`		`- END IF`
`224`	`219`	`*`
`225`	`220`	`* Calculate and print the machine dependent constants.`
`226`	`221`	`*`
Original file line number	Diff line number	Diff line change
`@@ -215,11 +215,6 @@ PROGRAM SCHKRFP`
`215`	`215`	`WRITE( NOUT, FMT = 9999 )`
`216`	`216`	`STOP`
`217`	`217`	`END IF`
`218`		`-*`
`219`		`- IF( FATAL ) THEN`
`220`		`- WRITE( NOUT, FMT = 9999 )`
`221`		`- STOP`
`222`		`- END IF`
`223`	`218`	`*`
`224`	`219`	`* Calculate and print the machine dependent constants.`
`225`	`220`	`*`
Original file line number	Diff line number	Diff line change
`@@ -217,11 +217,6 @@ PROGRAM ZCHKRFP`
`217`	`217`	`WRITE( NOUT, FMT = 9999 )`
`218`	`218`	`STOP`
`219`	`219`	`END IF`
`220`		`-*`
`221`		`- IF( FATAL ) THEN`
`222`		`- WRITE( NOUT, FMT = 9999 )`
`223`		`- STOP`
`224`		`- END IF`
`225`	`220`	`*`
`226`	`221`	`* Calculate and print the machine dependent constants.`
`227`	`222`	`*`