URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.14.1.f90] - Blame information for rev 827

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
      SUBROUTINE A14()
        INTEGER I
        I=1
!$OMP PARALLEL SECTIONS
!$OMP SECTION
!$OMP CRITICAL (NAME)
!$OMP PARALLEL
!$OMP SINGLE
                  I=I+1
!$OMP END SINGLE
!$OMP END PARALLEL
!$OMP END CRITICAL (NAME)
!$OMP END PARALLEL SECTIONS
      END SUBROUTINE A14

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE A14()`
3			`INTEGER I`
4			`I=1`
5			`!$OMP PARALLEL SECTIONS`
6			`!$OMP SECTION`
7			`!$OMP CRITICAL (NAME)`
8			`!$OMP PARALLEL`
9			`!$OMP SINGLE`
10			`I=I+1`
11			`!$OMP END SINGLE`
12			`!$OMP END PARALLEL`
13			`!$OMP END CRITICAL (NAME)`
14			`!$OMP END PARALLEL SECTIONS`
15			`END SUBROUTINE A14`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.14.1.f90] - Blame information for rev 827