--- a/stage3/constant_folding.cc	Sun Jun 10 15:54:10 2012 +0100
+++ b/stage3/constant_folding.cc	Sun Jun 10 21:47:15 2012 +0100
@@ -393,7 +393,9 @@
 /* B 1.2.1 - Numeric Literals */
 /******************************/
 void *constant_folding_c::visit(real_c *symbol) {
-	NEW_CVALUE(real64, symbol);	SET_CVALUE(real64, symbol, extract_real_value(symbol));
+	bool overflow;
+	NEW_CVALUE(real64, symbol);	SET_CVALUE(real64, symbol, extract_real_value(symbol, &overflow));
+	if (overflow) SET_OVFLOW(real64, symbol);
 	return NULL;
 }