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.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [threadprivate1.f90] - Blame information for rev 300

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


! { dg-do run }
! { dg-require-effective-target tls_runtime }
 
module threadprivate1
  double precision :: d
!$omp threadprivate (d)
end module threadprivate1
 
!$ use omp_lib
  use threadprivate1
  logical :: l
  l = .false.
!$omp parallel num_threads (4) reduction (.or.:l)
  d = omp_get_thread_num () + 6.5
!$omp barrier
  if (d .ne. omp_get_thread_num () + 6.5) l = .true.
!$omp end parallel
  if (l) call abort ()
end

Line No.	Rev	Author	Line
1	38	julius	`! { dg-do run }`
2			`! { dg-require-effective-target tls_runtime }`
3
4			`module threadprivate1`
5			`double precision :: d`
6			`!$omp threadprivate (d)`
7			`end module threadprivate1`
8
9			`!$ use omp_lib`
10			`use threadprivate1`
11			`logical :: l`
12			`l = .false.`
13			`!$omp parallel num_threads (4) reduction (.or.:l)`
14			`d = omp_get_thread_num () + 6.5`
15			`!$omp barrier`
16			`if (d .ne. omp_get_thread_num () + 6.5) l = .true.`
17			`!$omp end parallel`
18			`if (l) call abort ()`
19			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [threadprivate1.f90] - Blame information for rev 300