From b4f55d7fea408017da1939ce22652733c724e4f9 Mon Sep 17 00:00:00 2001
From: Andrey Prokopenko <prokopenkoav@ornl.gov>
Date: Tue, 25 Dec 2018 08:46:09 -0500
Subject: [PATCH] IoC: workaround Flang segfault issue (see #253)

---
 src/interface/test/Tpetra_ModelEvaluator_1DFEM.f90 | 3 +++
 src/interface/test/test_solver_handle.f90          | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/src/interface/test/Tpetra_ModelEvaluator_1DFEM.f90 b/src/interface/test/Tpetra_ModelEvaluator_1DFEM.f90
index 3b164ffb..adc8def0 100644
--- 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
index e050f993..46b33313 100644
--- 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