Fix some hyperthreading errors. #5833

Job	Run time
build (ubuntu-latest, gfortran, make)	1s
build (ubuntu-latest, flang, cmake)	1s
msys2 (UCRT64, int64, Release)	1s
msys2 (UCRT64, int32, None, mingw-w64-ucrt-x86_64, fc)	1s
build (macos-latest, gfortran, cmake)	1s
msys2 (CLANG64, int32, Release)	1s
build (macos-latest, gfortran, make)	1s
msys2 (MINGW32, int32, Release)	1s
build (ubuntu-latest, flang, make)	1s
cross_build (mips64el, mips64el-linux-gnuabi64, DYNAMIC_ARCH=1 TARGET=GENERIC)	1s
cross_build (mipsel, mipsel-linux-gnu, TARGET=MIPS1004K)	1s
cross_build (riscv64, riscv64-linux-gnu, TARGET=RISCV64_GENERIC)	1s
msys2 (UCRT64, int32, Release)	1s
msys2 (CLANG64, int64, Release)	1s
cross_build (alpha, alpha-linux-gnu, TARGET=EV4)	1s
build (ubuntu-latest, gfortran, cmake)	1s
neoverse_build	1s
	17s

Provide feedback