DATA LIST with free-field formats should not have implied decimal

[pspp] / src / expressions / operations.def

diff --git a/src/expressions/operations.def b/src/expressions/operations.def
index 8165b740890d134748491c5cf5c12f537212d299..e1998266154f263b4c96032f60c78485d14f359d 100644 (file)
--- a/src/expressions/operations.def
+++ b/src/expressions/operations.def
@@ -551,7 +551,7 @@ function NUMBER (string s, ni_format f)
   union value out;
   di.s = s.string;
   di.v = &out;
-  di.flags = 0;
+  di.flags = DI_IMPLIED_DECIMALS;
   di.f1 = 1;
   di.format = *f;
   di.e = s.string + min (s.length, di.format.w);