From 4fee078e624a9ce96243f21989a23c69a2891b72 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Sun, 16 Jun 2013 16:09:45 -0400
Subject: [PATCH] Write warnings to stderr instead of stdout.

---
 src/error.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/error.F90 b/src/error.F90
index ec8b9f2fad..2f3813fda7 100644
--- a/src/error.F90
+++ b/src/error.F90
@@ -29,7 +29,7 @@ contains
     if (.not. master) return
 
     ! Write warning at beginning
-    write(OUTPUT_UNIT, fmt='(1X,A)', advance='no') 'WARNING: '
+    write(ERROR_UNIT, fmt='(1X,A)', advance='no') 'WARNING: '
 
     ! Set line wrapping and indentation
     line_wrap = 80
@@ -42,7 +42,7 @@ contains
     do
       if (length - i_start < line_wrap - indent + 1) then
         ! Remainder of message will fit on line
-        write(OUTPUT_UNIT, fmt='(A)') message(i_start+1:length)
+        write(ERROR_UNIT, fmt='(A)') message(i_start+1:length)
         exit
 
       else
@@ -58,7 +58,7 @@ contains
           i_end = i_end - 1
         else
           ! Write up to last space
-          write(OUTPUT_UNIT, fmt='(A/A)', advance='no') &
+          write(ERROR_UNIT, fmt='(A/A)', advance='no') &
                message(i_start+1:i_end-1), repeat(' ', indent)
         end if