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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [libgomp/] [testsuite/] [libgomp.fortran/] [allocatable5.f90] - Diff between revs 273 and 338

Only display areas with differences | Details | Blame | View Log

Rev 273 Rev 338 
! PR fortran/42866
 
! PR fortran/42866
 
! { dg-do run }
 
! { dg-do run }
 
program pr42866
 
program pr42866
 
  integer, allocatable :: a(:)
 
  integer, allocatable :: a(:)
 
  allocate (a(16))
 
  allocate (a(16))
 
  a = 0
 
  a = 0
 
  !$omp parallel
 
  !$omp parallel
 
    !$omp sections reduction(+:a)
 
    !$omp sections reduction(+:a)
 
      a = a + 1
 
      a = a + 1
 
    !$omp section
 
    !$omp section
 
      a = a + 2
 
      a = a + 2
 
    !$omp end sections
 
    !$omp end sections
 
  !$omp end parallel
 
  !$omp end parallel
 
  if (any (a.ne.3)) call abort
 
  if (any (a.ne.3)) call abort
 
  deallocate (a)
 
  deallocate (a)
 
end
 
end
 
 
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.