OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [allocatable5.f90] - Blame information for rev 273

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 273 jeremybenn
! PR fortran/42866
2
! { dg-do run }
3
 
4
program pr42866
5
  integer, allocatable :: a(:)
6
  allocate (a(16))
7
  a = 0
8
  !$omp parallel
9
    !$omp sections reduction(+:a)
10
      a = a + 1
11
    !$omp section
12
      a = a + 2
13
    !$omp end sections
14
  !$omp end parallel
15
  if (any (a.ne.3)) call abort
16
  deallocate (a)
17
end

powered by: WebSVN 2.1.0

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