IoC: workaround Flang segfault issue (see trilinos#253)

aprokop · Dec 25, 2018 · b4f55d7 · b4f55d7
1 parent b2726d5
commit b4f55d7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/interface/test/Tpetra_ModelEvaluator_1DFEM.f90 b/src/interface/test/Tpetra_ModelEvaluator_1DFEM.f90
@@ -590,8 +590,11 @@ subroutine delete_TpetraModelEvaluator1DFEM(self)
     call self%x%release()
     call self%J_diagonal%release()
 
+#ifdef __GNUC__
+    ! FIXME This segfaults with Flang
     ! Call base class release()
     call self%ForModelEvaluator%release()
+#endif
   end subroutine
 
 end module TpetraModelEvaluator1DFEM_module
diff --git a/src/interface/test/test_solver_handle.f90 b/src/interface/test/test_solver_handle.f90
@@ -136,8 +136,11 @@ subroutine delete_TriDiagOperator(self)
     call self%domain_map%release()
     call self%range_map%release()
 
+#ifdef __GNUC__
+    ! FIXME This segfaults with Flang
     ! Call base class release()
     call self%ForTpetraOperator%release()
+#endif
   end subroutine