blob: 9da22a1cc6ad3a68c48daecdff03f628d291ce9f [file] [log] [blame]
program test
@OpenMP_Fortran_INCLUDE_LINE@
!$ integer :: n
n = omp_get_num_threads()
end program test