[Flang] [OpenMP] Geometric proliferation of error message lines for each unterminated OpenMP block construct in a Fortran scoping unit. #90452
Description
I noticed that multiple OpenMP errors of this kind cause substantial slowdown and excessive error message output.
#!/bin/bash constructs=(parallel sections workshare paralleldo task master single critical) for z in $(seq 0 31) do ( for i in $(seq 0 "${z}") do echo "!\$omp " "${constructs[$(( i % 8 ))]}" done echo end ) > src.f90 srcs=$(wc -l src.f90 | cut -d " " -f 1) # cat src.f90 flang-new -c -fopenmp src.f90 |& wc -l > errs.txt errs=$(cat errs.txt) echo "$srcs" "$errs" done