getlog.c (getlog): Fix label/statement issue.

2011-01-26  Kai Tietz  <kai.tietz@onevision.com>

        * intrinsics/getlog.c (getlog): Fix label/statement issue.

From-SVN: r169279

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index dc53e87dd2d6b3a8ac9d64e1d16b4d08555b6ecc..deb15ea486a005599a0395304895cac6a3b7752a 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-26  Kai Tietz  <kai.tietz@onevision.com>
+
+       * intrinsics/getlog.c (getlog): Fix label/statement issue.
+
 2011-01-25  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/47375

diff --git a/libgfortran/intrinsics/getlog.c b/libgfortran/intrinsics/getlog.c
index baacdf0609f94f48adc412511da9a8d72b59f0b8..299ac5a368d58c1189158ac4171d3d44ed72630f 100644 (file)
--- a/libgfortran/intrinsics/getlog.c
+++ b/libgfortran/intrinsics/getlog.c
@@ -115,5 +115,7 @@ PREFIX(getlog) (char * login, gfc_charlen_type login_len)
  cleanup:
 #ifdef HAVE_GETPWUID_R
   free (buf);
+#else
+  ;
 #endif
 }