gcc/ChangeLog:

[thirdparty/gcc.git] / gcc / fortran / trans-common.c

diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c
index 83da32f52347aa9d1b41c2426fb5882f9ffb1909..ea73537471e2fc82c09fe379c940d11160c500c4 100644 (file)
--- a/gcc/fortran/trans-common.c
+++ b/gcc/fortran/trans-common.c
@@ -388,7 +388,7 @@ build_common_decl (gfc_common_head *com, tree union_type, bool is_init)
 
       gfc_set_decl_location (decl, &com->where);
 
-      if (com->threadprivate && targetm.have_tls)
+      if (com->threadprivate)
        DECL_TLS_MODEL (decl) = decl_default_tls_model (decl);
 
       /* Place the back end declaration for this common block in