fix dwarf array info devsw-386800

Change-Id: I22da520eede196f17fa5de77473f12bd84ffee2a
ROCm · Jul 1, 2023 · 2dceaf4 · 2dceaf4
1 parent 2271d91
commit 2dceaf4
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tools/flang2/flang2exe/ll_write.cpp b/tools/flang2/flang2exe/ll_write.cpp
@@ -1787,7 +1787,12 @@ write_mdfield(FILE *out, LL_Module *module, int needs_comma, LL_MDRef mdref,
  case MDRef_SmallInt1:
  case MDRef_SmallInt32:
  case MDRef_SmallInt64:
- if (!value && !mandatory)
+ // if the value of array lower_bound attribute is zero, then do not return
+ if (!value && !mandatory
+ // AOCC Begin
+ && (strcmp(tmpl->name,"lowerBound"))
+ // AOCC End
+ )
  return false;
  switch (tmpl->type) {
  case UnsignedField: