example_packages/link_executable/app/main.f90


1
2
3
4
5
6
7
8
9
10
11

program gomp_example
  implicit none

  interface
    integer function omp_get_num_procs()
    end function
  end interface

  print *, omp_get_num_procs()

end program gomp_example