Patchwork [gomp-3.1] Add a testcase for copyin of unallocated allocatable

login
register
mail settings
Submitter Jakub Jelinek
Date July 12, 2011, 1:55 p.m.
Message ID <20110712135506.GQ2687@tyan-ft48-01.lab.bos.redhat.com>
Download mbox | patch
Permalink /patch/104373/
State New
Headers show

Comments

Jakub Jelinek - July 12, 2011, 1:55 p.m.
Hi!

The final standard now explicitly lists how copyin should copy allocatables.
Here is a testcase for something that hasn't been covered by the testsuite
yet.

2011-07-12  Jakub Jelinek  <jakub@redhat.com>

	* testsuite/libgomp.fortran/allocatable8.f90: New test.


	Jakub

Patch

--- libgomp/testsuite/libgomp.fortran/allocatable8.f90.jj	2011-07-12 15:42:56.000000000 +0200
+++ libgomp/testsuite/libgomp.fortran/allocatable8.f90	2011-07-12 15:45:00.000000000 +0200
@@ -0,0 +1,14 @@ 
+! { dg-do run }
+! { dg-require-effective-target tls_runtime }
+!$ use omp_lib
+
+  integer, save, allocatable :: a(:, :)
+  logical :: l
+!$omp threadprivate (a)
+  if (allocated (a)) call abort
+  l = .false.
+!$omp parallel copyin (a) num_threads (4) reduction(.or.:l)
+  l = l.or.allocated (a)
+!$omp end parallel
+  if (l.or.allocated (a)) call abort
+end