summaryrefslogtreecommitdiff
path: root/TESTING/LIN/schkrfp.f
diff options
context:
space:
mode:
Diffstat (limited to 'TESTING/LIN/schkrfp.f')
-rw-r--r--TESTING/LIN/schkrfp.f5
1 files changed, 0 insertions, 5 deletions
diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f
index 75d19e3..e3406f1 100644
--- a/TESTING/LIN/schkrfp.f
+++ b/TESTING/LIN/schkrfp.f
@@ -216,11 +216,6 @@
STOP
END IF
*
- IF( FATAL ) THEN
- WRITE( NOUT, FMT = 9999 )
- STOP
- END IF
-*
* Calculate and print the machine dependent constants.
*
EPS = SLAMCH( 'Underflow threshold' )