From ca4fd0dc818d4e751f62a0fc65f0908ec5fb7c2c Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Fri, 22 Feb 2013 10:36:53 -0500
Subject: [PATCH] Check for invalid tally filter.

---
 src/input_xml.F90 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index 5a6fec2ad2..7370025314 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -1705,6 +1705,13 @@ contains
                    tally_(i) % filter(j) % bins(k))
             end do
 
+          case default
+            ! Specified tally filter is invalid, raise error
+            message = "Unknown filter type '" // trim(tally_(i) % &
+                 filter(j) % type) // "' on tally " // &
+                 trim(to_str(t % id)) // "."
+            call fatal_error()
+
           end select
 
           ! Set find_filter, e.g. if filter(3) has type FILTER_CELL, then