From e1639ab71f99f05fccdbacb679517b4d30dbd38e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Fri, 25 Jul 2008 17:48:53 +0200
Subject: [PATCH] *READ-DEFAULT-FLOAT-FORMAT* did not work for LONG-FLOAT

---
 src/c/read.d | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/c/read.d b/src/c/read.d
index 180261d48..8bde77d4e 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -1383,8 +1383,15 @@ ecl_current_read_default_float_format(void)
 	x = SYM_VAL(@'*read-default-float-format*');
 	if (x == @'single-float' || x == @'short-float')
 		return 'F';
-	if (x == @'double-float' || x == @'long-float')
+	if (x == @'double-float')
 		return 'D';
+	if (x == @'long-float') {
+#ifdef ECL_LONG_FLOAT
+		return 'L';
+#else
+		return 'D';
+#endif
+	}
 	ECL_SETQ(@'*read-default-float-format*', @'single-float');
 	FEerror("The value of *READ-DEFAULT-FLOAT-FORMAT*, ~S, was illegal.",
 		1, x);