diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c
index 6999158c13a..34454d663f7 100644
--- a/libgfortran/io/read.c
+++ b/libgfortran/io/read.c
@@ -704,7 +704,7 @@ done:
   sprintf (p, "%d", exponent);
 
   /* Do the actual conversion.  */
-  string_to_real (dest, buffer, length);
+  convert_real (dest, buffer, length);
 
   if (buffer != scratch)
      free_mem (buffer);