program openmp90

    use,intrinsic :: iso_fortran_env
    !$ use omp_lib

!$omp parallel
    !$ print *,'OpenMPスレッド',omp_get_thread_num(),'of',omp_get_num_threads()
!$omp end parallel

end program openmp90



openmp90.EXE【Intel Fortran Compiler】実行結果

 OpenMPスレッド           0 of           8
 OpenMPスレッド           2 of           8
 OpenMPスレッド           5 of           8
 OpenMPスレッド           6 of           8
 OpenMPスレッド           3 of           8
 OpenMPスレッド           1 of           8
 OpenMPスレッド           4 of           8
 OpenMPスレッド           7 of           8