The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 lines
215 B
10 lines
215 B
6 years ago
|
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
|