From 15ac069ed083706af75822499366a9b2b4b9a987 Mon Sep 17 00:00:00 2001
From: Timo Heister <timo.heister@gmail.com>
Date: Sat, 23 Nov 2013 20:41:58 +0000
Subject: [PATCH] simplify test

git-svn-id: https://svn.dealii.org/trunk@31777 0785d39b-7218-0410-832d-ea1e28bc413d
---
 tests/mpi/crash_05a.cc              | 107 ++++++++++++++++++++++++++++
 tests/mpi/crash_05a.mpirun=2.output |  27 +++++++
 2 files changed, 134 insertions(+)
 create mode 100644 tests/mpi/crash_05a.cc
 create mode 100644 tests/mpi/crash_05a.mpirun=2.output

diff --git a/tests/mpi/crash_05a.cc b/tests/mpi/crash_05a.cc
new file mode 100644
index 0000000000..1f4fad6ecd
--- /dev/null
+++ b/tests/mpi/crash_05a.cc
@@ -0,0 +1,107 @@
+// ---------------------------------------------------------------------
+// $Id$
+//
+// Copyright (C) 2008 - 2013 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// The deal.II library is free software; you can use it, redistribute
+// it, and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+// The full text of the license can be found in the file LICENSE at
+// the top level of the deal.II distribution.
+//
+// ---------------------------------------------------------------------
+
+
+
+// test hits an exception in hanging_node constraints when using RT elements in parallel
+// reported by francesco.cattoglio on the mailing list on 2013/11/22
+// simplified version
+
+#include "../tests.h"
+#include <deal.II/base/logstream.h>
+#include <deal.II/base/tensor.h>
+#include <deal.II/distributed/tria.h>
+#include <deal.II/grid/tria_accessor.h>
+#include <deal.II/grid/tria_iterator.h>
+#include <deal.II/grid/grid_generator.h>
+#include <deal.II/grid/intergrid_map.h>
+#include <deal.II/base/utilities.h>
+#include <deal.II/dofs/dof_handler.h>
+#include <deal.II/dofs/dof_tools.h>
+#include <deal.II/fe/fe_raviart_thomas.h>
+#include <deal.II/fe/fe_q.h>
+#include <deal.II/fe/fe_system.h>
+
+#include <fstream>
+#include <cstdlib>
+#include <numeric>
+
+
+template<int dim>
+void test()
+{
+    parallel::distributed::Triangulation<dim> triangulation(MPI_COMM_WORLD);
+    GridGenerator::hyper_ball(triangulation);
+    
+    if (Utilities::MPI::this_mpi_process(MPI_COMM_WORLD) == 0)
+      {
+	typename Triangulation<dim>::active_cell_iterator
+	  cell = triangulation.begin_active();
+	//cell->set_refine_flag ();
+	(++cell)->set_refine_flag ();
+      }
+
+    triangulation.execute_coarsening_and_refinement();
+    deallog << "n_cells: " << triangulation.n_global_active_cells() << std::endl;
+    FE_RaviartThomas<dim> fe(0); // crashing
+    //FESystem<dim> fe(FE_Q<dim>(1), 2); // working
+    DoFHandler<dim> dof_handler(triangulation);
+
+    dof_handler.distribute_dofs(fe);
+
+    typename DoFHandler<2>::active_cell_iterator cell =
+      dof_handler.begin_active();
+    std::vector<types::global_dof_index> local_dof_indices(fe.dofs_per_cell);
+
+    for (; cell != dof_handler.end(); ++cell)
+      if (!cell->is_artificial())
+	{
+	cell->get_dof_indices(local_dof_indices);
+	deallog << "dof_indices: ";
+	for (unsigned int i=0;i<fe.dofs_per_cell;++i)
+	  deallog << local_dof_indices[i] << " ";
+	deallog << std::endl;
+	
+	for (unsigned int face=0; face<GeometryInfo<2>::faces_per_cell; ++face)
+	  if (cell->face(face)->has_children())
+	    {
+	      deallog << "face " << face << ": ";
+	      for (unsigned int child=0; child<2; ++child)
+		for (unsigned int dof=0; dof!=fe.dofs_per_line; ++dof)
+		  {
+		    types::global_dof_index dofidx = cell->face(face)->child(child)->dof_index(dof, 0);
+
+		    deallog << dofidx << " ";
+		    //		    Assert(dofidx!=numbers::invalid_dof_index, ExcInternalError());
+		  }
+
+	      deallog << std::endl;
+	    }
+	}
+    
+    if (Utilities::MPI::this_mpi_process (MPI_COMM_WORLD) == 0)
+      deallog << "OK" << std::endl;
+}
+
+
+int main(int argc, char *argv[])
+{  
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
+  MPILogInitAll log;
+
+  test<2>();
+  
+}
diff --git a/tests/mpi/crash_05a.mpirun=2.output b/tests/mpi/crash_05a.mpirun=2.output
new file mode 100644
index 0000000000..41a6c0247e
--- /dev/null
+++ b/tests/mpi/crash_05a.mpirun=2.output
@@ -0,0 +1,27 @@
+
+DEAL:0::n_cells: 8
+DEAL:0::dof_indices: 0 1 2 3 
+DEAL:0::face 0: 6 9 
+DEAL:0::dof_indices: 16 17 3 18 
+DEAL:0::face 0: 8 14 
+DEAL:0::dof_indices: 1 19 20 17 
+DEAL:0::dof_indices: 21 18 22 19 
+DEAL:0::face 2: 13 15 
+DEAL:0::dof_indices: 4 5 6 7 
+DEAL:0::dof_indices: 5 8 9 10 
+DEAL:0::dof_indices: 11 12 7 13 
+DEAL:0::dof_indices: 12 14 10 15 
+DEAL:0::OK
+
+DEAL:1::n_cells: 8
+DEAL:1::dof_indices: 0 1 2 3 
+DEAL:1::face 0: 6 9 
+DEAL:1::dof_indices: 16 17 3 18 
+DEAL:1::face 0: 8 14 
+DEAL:1::dof_indices: 1 19 20 17 
+DEAL:1::dof_indices: 21 18 22 19 
+DEAL:1::face 2: 13 15 
+DEAL:1::dof_indices: 5 8 9 10 
+DEAL:1::dof_indices: 11 12 7 13 
+DEAL:1::dof_indices: 12 14 10 15 
+
-- 
2.39.5