main.f90\190 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/190 openmp/main.f90

blob: c062d8691053e16225fc9b7b7a7de6316b13a894 (plain)

program main
    if (omp_get_max_threads() .eq. 2) then
        stop 0
    else
        print *, 'Max threads is', omp_get_max_threads(), 'not 2.'
        stop 1
    endif
end program main