426805: Fix regression in test_target_defaultmap.F90

ronlieb · ronlieb · commit dae55da64126 · 2023-11-08T07:21:58.000-06:00
diff --git a/tools/flang2/flang2exe/llutil.cpp b/tools/flang2/flang2exe/llutil.cpp
@@ -1877,11 +1877,17 @@ use_gpu_output_file(void)
   set_llasm_output_file(gbl.ompaccfile);
 }
 void reset_write_ftn_typedefs(void);
+
+static bool first_time = true;
+
 void
 use_cpu_output_file(void)
 {
   set_llasm_output_file(gbl.asmfil);
-  reset_write_ftn_typedefs();
+  if (first_time) {
+    reset_write_ftn_typedefs();
+    first_time = false;
+  }
 }
 #endif
 /**

Original file line number	Diff line number	Diff line change
`@@ -1877,11 +1877,17 @@ use_gpu_output_file(void)`
`1877`	`1877`	`set_llasm_output_file(gbl.ompaccfile);`
`1878`	`1878`	`}`
`1879`	`1879`	`void reset_write_ftn_typedefs(void);`
	`1880`	`+`
	`1881`	`+static bool first_time = true;`
	`1882`	`+`
`1880`	`1883`	`void`
`1881`	`1884`	`use_cpu_output_file(void)`
`1882`	`1885`	`{`
`1883`	`1886`	`set_llasm_output_file(gbl.asmfil);`
`1884`		`- reset_write_ftn_typedefs();`
	`1887`	`+ if (first_time) {`
	`1888`	`+ reset_write_ftn_typedefs();`
	`1889`	`+ first_time = false;`
	`1890`	`+ }`
`1885`	`1891`	`}`
`1886`	`1892`	`#endif`
`1887`	`1893`	`/**`