1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 81faf49..09ec255 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);