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/] [pr36726.f90] - Rev 484
Go to most recent revision | Compare with Previous | Blame | View Log
! PR middle-end/36726
! { dg-do compile }
! { dg-options "-fopenmp" }
subroutine foo
integer, allocatable :: vs(:)
!$omp parallel private (vs)
allocate (vs(10))
vs = 2
deallocate (vs)
!$omp end parallel
end subroutine foo
subroutine bar
integer, allocatable :: vs(:)
!$omp parallel private (vs)
allocate (vs(10))
vs = 2
deallocate (vs)
!$omp end parallel
end subroutine bar
Go to most recent revision | Compare with Previous | Blame | View Log