fix swdev-385680 [ORNLA-151] amdflang preprocessor confused by + on C…

…rusher Change-Id: Iad50639b90bfe0291184c0d4dffd36a733453c09
ROCm · May 15, 2023 · 386dda0 · 386dda0
1 parent 0ab1484
commit 386dda0
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/tools/flang1/flang1exe/accpp.c b/tools/flang1/flang1exe/accpp.c
@@ -4210,12 +4210,16 @@ nextok(char *tokval, int truth)
  for (;;) {
  if (*p == 'E' || *p == 'e') {
  ++p;
- if (*p == '+' || *p == '-')
+ if (*p == '+' || *p == '-') {
  ++p;
+ if (isident(*p)) { --p; break;}
+ }
  } else if (*p == 'P' || *p == 'p') {
  ++p;
- if (*p == '+' || *p == '-')
+ if (*p == '+' || *p == '-') {
  ++p;
+ if (isident(*p)) { --p; break;}
+ }
  } else if (*p == '.' || isident(*p))
  ++p;
  else