main.f90\185 openmp\common\test cases - riscv-gnu-toolchain/qemu/meson.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/qemu/meson.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/test cases/common/185 openmp/main.f90

blob: d80f90fdffb6a969870f0547c9ea168c3d063eb0 (plain)

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