openmp_stack.f90: Removed.

* gfortran.dg/openmp_stack.f90: Removed.

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

From-SVN: r128863
This commit is contained in:
Jakub Jelinek 2007-09-28 15:22:18 +02:00 committed by Jakub Jelinek
parent b0aa239057
commit bd69daef03
3 changed files with 8 additions and 3 deletions

View File

@ -1,5 +1,7 @@
2007-09-28 Jakub Jelinek <jakub@redhat.com> 2007-09-28 Jakub Jelinek <jakub@redhat.com>
* gfortran.dg/openmp_stack.f90: Removed.
PR c++/31434 PR c++/31434
* g++.dg/cpp0x/variadic80.C: New test. * g++.dg/cpp0x/variadic80.C: New test.

View File

@ -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> 2007-09-10 Danny Smith <dannysmith@users.sourceforge.net>
* config/mingw32/proc.c: New file. * config/mingw32/proc.c: New file.

View File

@ -1,6 +1,5 @@
! { dg-do run } ! { dg-do run }
! { dg-options "-fopenmp" } program stack
program openmp_stack
implicit none implicit none
integer id integer id
integer ilocs(2) integer ilocs(2)
@ -13,7 +12,7 @@ program openmp_stack
! Check that the two threads are not sharing a location for ! Check that the two threads are not sharing a location for
! the array x in foo() ! the array x in foo()
if (ilocs(1) .eq. ilocs(2)) call abort if (ilocs(1) .eq. ilocs(2)) call abort
end program openmp_stack end program stack
integer function foo () integer function foo ()
implicit none implicit none