diff options
Diffstat (limited to 'src/interp/newfort.boot')
| -rw-r--r-- | src/interp/newfort.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index b799cfff..c0d7277e 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -852,7 +852,7 @@ isFloat e == checkPrecision e == -- Do we have a string? - string?(e) and codePoint CHAR(e,0) = 34 => e + string? e and codePoint stringChar(e,0) = 34 => e e := delete(char " ",STRINGIMAGE e) $fortranPrecision = "double" => iPart := subSequence(e,0,(period:=POSITION(char ".",e))+1) |