From 4fc6a4505f04b01bd5fed0dffcd15f73a2392f0e Mon Sep 17 00:00:00 2001 From: peter klausler Date: Mon, 9 Apr 2018 13:17:31 -0700 Subject: [PATCH] [flang] Repair negative scale factors in formats. Original-commit: flang-compiler/f18@0e90d2db3a05a7c3f4f52aa02de87ecfaf55d48d Reviewed-on: https://github.com/flang-compiler/f18/pull/48 Tree-same-pre-rewrite: false --- flang/lib/parser/grammar.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/flang/lib/parser/grammar.h b/flang/lib/parser/grammar.h index d1e92cd..baca3ff 100644 --- a/flang/lib/parser/grammar.h +++ b/flang/lib/parser/grammar.h @@ -3174,7 +3174,7 @@ TYPE_PARSER("D"_ch >> "T"_ch >> // R1314 k -> [sign] digit-string constexpr auto count = space >> DigitStringAsPositive{}; -constexpr auto scaleFactor = count; +constexpr auto scaleFactor = space >> signedDigitString; // R1313 control-edit-desc -> // position-edit-desc | [r] / | : | sign-edit-desc | k P | -- 2.7.4