diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-09 16:27:14 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-09 16:27:14 +0000 |
| commit | 5c3667a19751f3f0b11b07c3712b152a70c650ba (patch) | |
| tree | 3b365f54da686b951378eabd14acdaf98bd0eb15 /gcc/fortran/openmp.c | |
| parent | bd09cd3e0a1b43658bb0d2169721ff2b3e95ea0e (diff) | |
| download | ppe42-gcc-5c3667a19751f3f0b11b07c3712b152a70c650ba.tar.gz ppe42-gcc-5c3667a19751f3f0b11b07c3712b152a70c650ba.zip | |
Revert emutls patch.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117578 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 81faf4978c2..09ec255974c 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -465,6 +465,12 @@ gfc_match_omp_threadprivate (void) if (m != MATCH_YES) return m; + if (!targetm.have_tls) + { + sorry ("threadprivate variables not supported in this target"); + goto cleanup; + } + for (;;) { m = gfc_match_symbol (&sym, 0); |
