Fortran openmp并行 Hello World

代码如下：

program main
  implicit none


  write(*,*) 'sequential:'
  write(*,*) 'hello!'


  write(*,*) 'parallel:'

  !$omp parallel
  write(*,*) 'hello, world!'
  !$omp end parallel

  write(*,*) 'sequential:'
  write(*,*) 'hello!'
end program main

编译命令：

gfortran -fopenmp 1.f90

结果：

 sequential:
 hello!
 parallel:
 hello, world!
 hello, world!
 hello, world!
 hello, world!
 sequential:
 hello!

由于处理器有四个线程，未指定线程数，按最大线程计算，所以输出4次