<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/90452>90452</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
[Flang] [OpenMP] Geometric proliferation of error message lines for each unterminated OpenMP block construct in a Fortran scoping unit.
</td>
</tr>
<tr>
<th>Labels</th>
<td>
flang
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
thtsikas
</td>
</tr>
</table>
<pre>
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
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJxkVF2zozYM_TXiRZMMGLiEBx72bppOHzrtXzBGBDfGppbYbO-v7wD5unc9GTuyfM5RzkjRzPbsiRoo36E8JnqWIcRGBmF70Zy0ofuv-QN9EGuoQxm04Dg7sZMj_Gsi_-ffSDGGyBh6lMEyXqzv0OiZCXluWbQXqx2yC9cuXD1q3yH9NMRsf9AGxpGY9ZkwzDLNskdIj5B-u-1v6e2zhSoHlYE6tdYvu-bh9bUJniXORhjyI6jDpKN2jhwyGbHBM15DvPCgI-E91wUUzRccNQtFZOvPjtBEK9ZoB6reqPsQ8QOtR1AFqAPTv5hinj3yXdhOBHW4fbutBWm_IkGpJazeP6A6rkH9GfXge1lkhrAhMyi_gyrCOC3xk-3FgPJ90wN1QIugSjzgoqJqKI830S-Knj7frHrku-ctqBoh_w05mn1fp88ER7N5vkheDe7c_Q1C9R3NLLjr7rXirsenc6ByNFp-5eyd9uedpyvuDO76MJEfp1daUG-4aS01UYy8l59yI1jCR0UL_yP_avXT0mL9CQ8zV_jdoqc1X_ox6Zq8q_NaJ9RkVVbkh-pQZcnQpCor2rRve523WVanVd6Xmt76Uh3KosrKxDYqVUVaqDpLyyzL9kVf5V1d5nmfmbeibaFIadTW7Z37Me5DPCeWeaamTotSJU635HgdXKVWo5Ziy2MSm-X9rp3PDEXqLAs_GcSKW6f9tCLKI0L5vg3yEvxOYSSJ1uAUg7M9Rb1MzTLcnyfVWU-8NjZpM-DsheJovRbq7v8LrQvmgo9-XPpf4ylEidojmzBZf8bZW9knc3TNIDIx5N9AnUCdzlaGud2bMII6LdXfjt0Uwz9kBNRpNYNBnVY__g8AAP__qMRofA">