URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr27573.f90] - Blame information for rev 378

Details | Compare with Previous | View Log


! PR middle-end/27573
! { dg-do compile }
! { dg-options "-O2 -fopenmp -fprofile-generate" }
 
program pr27573
  integer i,j
  j = 8
  !$omp parallel
    print *, "foo"
    do i = 1, j - 1
    end do
  !$omp end parallel
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR middle-end/27573`
2			`! { dg-do compile }`
3			`! { dg-options "-O2 -fopenmp -fprofile-generate" }`
4
5			`program pr27573`
6			`integer i,j`
7			`j = 8`
8			`!$omp parallel`
9			`print *, "foo"`
10			`do i = 1, j - 1`
11			`end do`
12			`!$omp end parallel`
13			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr27573.f90] - Blame information for rev 378