Revert emutls patch.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117578 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 6 insertions, 0 deletions

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 81faf4978c2d..09ec255974cc 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);