test cases/common/184 openmp/main.f90

use, intrinsic :: iso_fortran_env, only: stderr=>error_unit
use omp_lib

if (omp_get_max_threads() /= 2) then
  write(stderr, *) 'Max Fortran threads is', omp_get_max_threads(), 'not 2.'
  stop 1
endif

end program