diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2007-09-28 15:22:18 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2007-09-28 15:22:18 +0200 |
| commit | bd69daef031ae2afefc43f72e5050e006dc142fe (patch) | |
| tree | 3275637027c5a5e8ba5a13f9596eeb22d0dcd08e /gcc | |
| parent | b0aa2390573e52199741ce74eaac3102ea631370 (diff) | |
| download | gcc-bd69daef031ae2afefc43f72e5050e006dc142fe.zip gcc-bd69daef031ae2afefc43f72e5050e006dc142fe.tar.gz gcc-bd69daef031ae2afefc43f72e5050e006dc142fe.tar.bz2 | |
openmp_stack.f90: Removed.
* gfortran.dg/openmp_stack.f90: Removed.
* testsuite/libgomp.fortran/stack.f90: New test.
From-SVN: r128863
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/openmp_stack.f90 | 22 |
2 files changed, 2 insertions, 22 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 67e390a..077e118 100644 --- 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 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 |