File: test5.f

package info (click to toggle)
opari 1.1%2Bdfsg-7
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 728 kB
  • sloc: cpp: 2,005; ansic: 901; f90: 252; makefile: 128; sh: 86; fortran: 50
file content (14 lines) | stat: -rw-r--r-- 277 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
      program test
      integer i,j,k,l

!$omp  parallel
!$omp+ sections
!$omp+ default(shared) private(i) lastprivate(k)
!$omp+ lastprivate(l)
!$omp  section
         write(*,*) "section1"
!$omp  section
         write(*,*) "section2"
!$omp  end parallel sections

      end