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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr44536.f90] - Blame information for rev 578

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


! PR fortran/44536
! { dg-do compile }
! { dg-options "-fopenmp" }
      subroutine foo (a, i, j)
        integer, dimension(:) :: a
        integer :: i, j
!$omp parallel default(none) shared(i, j)       ! { dg-error "enclosing parallel" }
        j=a(i)                                  ! { dg-error "not specified in" }
!$omp end parallel
      end subroutine

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR fortran/44536`
2			`! { dg-do compile }`
3			`! { dg-options "-fopenmp" }`
4			`subroutine foo (a, i, j)`
5			`integer, dimension(:) :: a`
6			`integer :: i, j`
7			`!$omp parallel default(none) shared(i, j) ! { dg-error "enclosing parallel" }`
8			`j=a(i) ! { dg-error "not specified in" }`
9			`!$omp end parallel`
10			`end subroutine`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr44536.f90] - Blame information for rev 578