[gfortran] Minor cleanup

[Paul Brook]

A minor cleanup of core that was left behind by a previous change.

Paul

2004-08-31  Paul Brook  <paul@codesourcery.com>

 * io/unit.c (get_unit): Remove superfluous if.

Index: unit.c
===================================================================
RCS file: /var/cvsroot/gcc-cvs/gcc/libgfortran/io/unit.c,v
retrieving revision 1.4
diff -u -p -r1.4 unit.c
--- unit.c 18 May 2004 16:06:09 -0000 1.4
+++ unit.c 31 Aug 2004 18:12:07 -0000
@@ -264,10 +264,8 @@ get_unit (int read_flag)
   /* Has to be an external unit */
 
   u = find_unit (ioparm.unit);
-  if (u != NULL)
-    return u;
 
-  return NULL;
+  return u;
 }