From 992abf62b80d2e5309007a8f6df6b79bcb5ccc2e Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Mon, 5 Dec 2011 22:56:27 -0500
Subject: [PATCH] Fixed trace on gfortran builds.

---
 src/input_xml.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/input_xml.f90 b/src/input_xml.f90
index d08f7e8d8a..634cb6b36e 100644
--- a/src/input_xml.f90
+++ b/src/input_xml.f90
@@ -137,7 +137,7 @@ contains
     end if
 
     ! Particle trace
-    if (size(trace_) > 0) then
+    if (associated(trace_)) then
        trace_cycle    = trace_(1)
        trace_particle = trace_(2)
     end if