Sign in
qemu
/
meson
/
d617dc6869bcd5afcd784ff39cc5b6597b1912a2
/
.
/
test cases
/
common
/
184 openmp
/
main.f90
blob: d80f90fdffb6a969870f0547c9ea168c3d063eb0 [
file
] [
log
] [
blame
]
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