[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