Address Windows thread server re-entrant queue bug #4582 #4421

Job	Run time
build (ubuntu-latest, gfortran, cmake)	42m 0s
build (ubuntu-latest, gfortran, make)	14m 40s
build (ubuntu-latest, flang, cmake)	10m 31s
build (ubuntu-latest, flang, make)	4m 57s
build (macos-latest, gfortran, cmake)	55m 26s
build (macos-latest, gfortran, make)	6m 51s
msys2 (UCRT64, int32, Release)	14m 21s
msys2 (UCRT64, int64, Release)	15m 26s
msys2 (MINGW32, int32, Release)	18m 38s
cross_build (mips64el, mips64el-linux-gnuabi64, DYNAMIC_ARCH=1 TARGET=GENERIC)	3m 28s
msys2 (CLANG64, int32, Release)	16m 54s
cross_build (riscv64, riscv64-linux-gnu, TARGET=RISCV64_GENERIC)	7m 41s
cross_build (mipsel, mipsel-linux-gnu, TARGET=MIPS1004K)	3m 26s
msys2 (CLANG64, int64, Release)	14m 53s
cross_build (alpha, alpha-linux-gnu, TARGET=EV4)	2m 38s
msys2 (CLANG32, int32, Release)	10m 8s
msys2 (UCRT64, int32, None, mingw-w64-ucrt-x86_64, fc)	13m 50s
	4h 15m 48s

Provide feedback