From f93accb2fa740a5d254693870ad6e9d0105d1c3e Mon Sep 17 00:00:00 2001
From: sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 21 Nov 2004 05:08:14 +0000
Subject: [PATCH] 	* io/write.c (write_float, list_formatted_write): Fix
 indentation.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90975 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgfortran/ChangeLog  |   4 ++
 libgfortran/io/write.c | 113 ++++++++++++++++++++++++-------------------------
 2 files changed, 60 insertions(+), 57 deletions(-)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 256e0411632..8e633fcef31 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-20  Roger Sayle  <roger@eyesopen.com>
+
+	* io/write.c (write_float, list_formatted_write): Fix indentation.
+
 2004-11-20  Eric Botcazou  <ebotcazou@libertysurf.fr>
 
 	PR target/16135
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index a121a8f57aa..28bbd1b9426 100644
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -653,41 +653,41 @@ write_float (fnode *f, const char *source, int len)
   n = extract_real (source, len);
 
   if (f->format != FMT_B && f->format != FMT_O && f->format != FMT_Z)
-   {
-     res = finite (n);
-     if (res == 0)
-       {
-         nb =  f->u.real.w;
-         p = write_block (nb);
-         if (nb < 3)
-         {
-             memset (p, '*',nb);
-             return;
-         }
-
-         memset(p, ' ', nb);
-         res = !isnan (n); 
-         if (res != 0)
-         {
-            if (signbit(n))   
-               fin = '-';
-            else
-               fin = '+';
-
-            if (nb > 7)
-               memcpy(p + nb - 8, "Infinity", 8); 
-            else
-               memcpy(p + nb - 3, "Inf", 3);
-            if (nb < 8 && nb > 3)
-               p[nb - 4] = fin;
-            else if (nb > 8)
-               p[nb - 9] = fin; 
-          }
-         else
-             memcpy(p + nb - 3, "NaN", 3);
-         return;
-       }
-   }
+    {
+      res = finite (n);
+      if (res == 0)
+	{
+	  nb =  f->u.real.w;
+	  p = write_block (nb);
+	  if (nb < 3)
+	    {
+	      memset (p, '*',nb);
+	      return;
+	    }
+
+	  memset(p, ' ', nb);
+	  res = !isnan (n); 
+	  if (res != 0)
+	    {
+	      if (signbit(n))   
+		fin = '-';
+	      else
+		fin = '+';
+
+	      if (nb > 7)
+		memcpy(p + nb - 8, "Infinity", 8); 
+	      else
+		memcpy(p + nb - 3, "Inf", 3);
+	      if (nb < 8 && nb > 3)
+		p[nb - 4] = fin;
+	      else if (nb > 8)
+		p[nb - 9] = fin; 
+	    }
+	  else
+	    memcpy(p + nb - 3, "NaN", 3);
+	  return;
+	}
+    }
 
   if (f->format != FMT_G)
     {
@@ -1252,20 +1252,20 @@ list_formatted_write (bt type, void *p, int len)
 void
 namelist_write (void)
 {
-   namelist_info * t1, *t2;
-   int len,num;
-   void * p;
+  namelist_info * t1, *t2;
+  int len,num;
+  void * p;
 
-   num = 0;
-   write_character("&",1);
-   write_character (ioparm.namelist_name, ioparm.namelist_name_len);
-   write_character("\n",1);
+  num = 0;
+  write_character("&",1);
+  write_character (ioparm.namelist_name, ioparm.namelist_name_len);
+  write_character("\n",1);
 
-   if (ionml != NULL)
-     {
-       t1 = ionml;
-       while (t1 != NULL)
-        {
+  if (ionml != NULL)
+    {
+      t1 = ionml;
+      while (t1 != NULL)
+	{
           num ++;
           t2 = t1;
           t1 = t1->next;
@@ -1296,14 +1296,13 @@ namelist_write (void)
             default:
               internal_error ("Bad type for namelist write");
             }
-         write_character(",",1);
-         if (num > 5)
-           {
-              num = 0;
-              write_character("\n",1);
-           }
-        }
-     }
-     write_character("/",1);
-
+	  write_character(",",1);
+	  if (num > 5)
+	    {
+	      num = 0;
+	      write_character("\n",1);
+	    }
+	}
+    }
+  write_character("/",1);
 }
-- 
2.11.0