diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6287b2b9dff..e13390bd23b 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2018-09-07  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	* runtime/environ.c (init_unsigned_integer): Remove.
+
 2018-09-05  Hans-Peter Nilsson  <hp@axis.com>
 
 	* io/async.h: Use __gthread_mutex_t, not pthread_mutex_t.
diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c
index 22faad348da..484b569f1db 100644
--- a/libgfortran/runtime/environ.c
+++ b/libgfortran/runtime/environ.c
@@ -98,25 +98,6 @@ init_integer (variable * v)
 }
 
 
-/* Initialize an integer environment variable which has to be positive.  */
-
-static void
-init_unsigned_integer (variable * v)
-{
-  char *p, *q;
-
-  p = getenv (v->name);
-  if (p == NULL)
-    return;
-
-  for (q = p; *q; q++)
-    if (!isdigit (*q))
-      return;
-
-  *v->var = atoi (p);
-}
-
-
 /* Initialize a boolean environment variable. We only look at the first
    letter of the value. */