diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2013-10-11 12:42:42 +0200 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gcc.gnu.org> | 2013-10-11 12:42:42 +0200 |
| commit | 86a6016dccd3a98a78e7a49c38befe9eb44aa9aa (patch) | |
| tree | 76800cf7cacf652b47f85093b30a109ada721de6 /libgomp/testsuite | |
| parent | 1e723fd75eb5db69c87a96af2ff09278e72e4976 (diff) | |
| download | gcc-86a6016dccd3a98a78e7a49c38befe9eb44aa9aa.zip gcc-86a6016dccd3a98a78e7a49c38befe9eb44aa9aa.tar.gz gcc-86a6016dccd3a98a78e7a49c38befe9eb44aa9aa.tar.bz2 | |
_OPENMP pre-processor checks, openmp_version Fortran instrinsic checks.
gcc/testsuite/
* c-c++-common/cpp/openmp-define-1.c: New file.
* c-c++-common/cpp/openmp-define-2.c: Likewise.
* c-c++-common/cpp/openmp-define-3.c: Likewise.
* gfortran.dg/openmp-define-1.f90: Likewise.
* gfortran.dg/openmp-define-2.f90: Likewise.
* gfortran.dg/openmp-define-3.f90: Likewise.
libgomp/
* testsuite/libgomp.fortran/openmp_version-1.f: New file.
* testsuite/libgomp.fortran/openmp_version-2.f90: Likewise.
From-SVN: r203417
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/openmp_version-1.f | 9 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 | 9 |
2 files changed, 18 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/openmp_version-1.f b/libgomp/testsuite/libgomp.fortran/openmp_version-1.f new file mode 100644 index 0000000..aaa8881 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/openmp_version-1.f @@ -0,0 +1,9 @@ +! { dg-do run } + + program main + implicit none + include "omp_lib.h" + + if (openmp_version .ne. 201107) call abort; + + end program main diff --git a/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 b/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 new file mode 100644 index 0000000..b2d1d26 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 @@ -0,0 +1,9 @@ +! { dg-do run } + +program main + use omp_lib + implicit none + + if (openmp_version .ne. 201107) call abort; + +end program main |