openmp_stack.f90: Removed.

	* gfortran.dg/openmp_stack.f90: Removed.

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

From-SVN: r128863

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 67e390a623b4de7df4f4da7ae39725fe1e47d454..077e118b51d8e2a562c3b423bf3fb2bd28edcfb6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2007-09-28  Jakub Jelinek  <jakub@redhat.com>
 
+       * gfortran.dg/openmp_stack.f90: Removed.
+
        PR c++/31434
        * g++.dg/cpp0x/variadic80.C: New test.
 

diff --git a/gcc/testsuite/gfortran.dg/openmp_stack.f90 b/gcc/testsuite/gfortran.dg/openmp_stack.f90
deleted file mode 100644 (file)
index 6ec1d78..0000000
--- a/gcc/testsuite/gfortran.dg/openmp_stack.f90
+++ /dev/null
@@ -1,22 +0,0 @@
-! { dg-do run }
-! { dg-options "-fopenmp" }
-program openmp_stack
-  implicit none
-  integer id
-  integer ilocs(2)
-  integer omp_get_thread_num, foo
-  call omp_set_num_threads (2)
-!$omp parallel private (id)
-  id = omp_get_thread_num() + 1
-  ilocs(id) = foo()
-!$omp end parallel
-  ! Check that the two threads are not sharing a location for
-  ! the array x in foo()
-  if (ilocs(1) .eq. ilocs(2)) call abort
-end program openmp_stack
-
-integer function foo ()
-  implicit none
-  real x(100,100)
-  foo = loc(x)
-end function foo

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 22d936b84ced1c7b3d17f85925664974b92dd80e..b11a5a0510411d1f8ab7631d1739aa3edcdc792b 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-28  Jakub Jelinek  <jakub@redhat.com>
+
+       * testsuite/libgomp.fortran/stack.f90: New test.
+
 2007-09-10  Danny Smith  <dannysmith@users.sourceforge.net>
 
        * config/mingw32/proc.c: New file.

diff --git a/libgomp/testsuite/libgomp.fortran/stack.f90 b/libgomp/testsuite/libgomp.fortran/stack.f90
new file mode 100644 (file)
index 0000000..b27673d
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/stack.f90
@@ -0,0 +1,21 @@
+! { dg-do run }
+program stack
+  implicit none
+  integer id
+  integer ilocs(2)
+  integer omp_get_thread_num, foo
+  call omp_set_num_threads (2)
+!$omp parallel private (id)
+  id = omp_get_thread_num() + 1
+  ilocs(id) = foo()
+!$omp end parallel
+  ! Check that the two threads are not sharing a location for
+  ! the array x in foo()
+  if (ilocs(1) .eq. ilocs(2)) call abort
+end program stack
+
+integer function foo ()
+  implicit none
+  real x(100,100)
+  foo = loc(x)
+end function foo