https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84041
--- Comment #1 from Tom de Vries <vries at gcc dot gnu.org> ---
So, using this patch:
...
diff --git a/gcc/omp-expand.c b/gcc/omp-expand.c
index 90e06310d81..af626d1568a 100644
--- a/gcc/omp-expand.c
+++ b/gcc/omp-expand.c
@@ -167,6 +167,7 @@ is_combined_parallel (struct omp_region *region)
static bool
workshare_safe_to_combine_p (basic_block ws_entry_bb)
{
+ return false;
struct omp_for_data fd;
gimple *ws_stmt = last_stmt (ws_entry_bb);
...
This hangs:
...
extern void abort ();
int
main (void)
{
#pragma omp target teams
{
unsigned int i;
#pragma omp distribute parallel for schedule(dynamic,1)
for (i = 0;
i < 1;
i += 1)
;
}
return 0;
}
...