Automatically SAVE module variable marked as THREADPRIVATE

Without this change compiler segfaults on COPYIN of module variables. Signed-off-by: Paul Osmialowski <[email protected]>
flang-compiler · Aug 31, 2018 · 4e828b9 · 4e828b9
1 parent 6cbbbf9
commit 4e828b9
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/test/mp_correct/copyin.f90 b/test/mp_correct/copyin.f90
@@ -0,0 +1,13 @@
+! RUN: %flang %s -fopenmp -fsyntax-only
+
+module somemod
+  integer, allocatable :: something(:)
+  !$OMP THREADPRIVATE(something)
+end module somemod
+
+program some
+  use somemod
+
+  !$OMP PARALLEL COPYIN(something)
+  !$OMP END PARALLEL
+end program some
diff --git a/tools/flang1/flang1exe/semant.c b/tools/flang1/flang1exe/semant.c
@@ -3752,6 +3752,8 @@ semant1(int rednum, SST *top)
       if (sptr == 0)
         continue;
       THREADP(sptr, 1);
+      if (sem.mod_sym)
+        SAVEP(sptr, 1);
 
       if (STYPEG(sptr) != ST_CMBLK && !DCLDG(sptr) && !SAVEG(sptr) &&
           !sem.savall) {