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

Subversion Repositories openrisc

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

Go to most recent revision | 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
 
! { dg-final { cleanup-coverage-files } }

Line No.	Rev	Author	Line
1	149	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`
14
15			`! { dg-final { cleanup-coverage-files } }`

Browse

Tools

Subversion Repositories openrisc

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