check_fortran_source_runs("integer, external :: openblas_get_parallel; if (openblas_get_parallel() /= 2) error stop ; end" _openblascheck_has_OMP)