diff --git a/src/stdlib_io.fypp b/src/stdlib_io.fypp
index 6144864b5..65196d237 100644
--- a/src/stdlib_io.fypp
+++ b/src/stdlib_io.fypp
@@ -121,7 +121,7 @@ contains
       !!
       integer :: s
       integer :: nrow, ncol, i, ios, skiprows_, max_rows_
-      character(len=128) :: iomsg,msgout
+      character(len=128) :: iomsg, msgout
 
       skiprows_ = max(optval(skiprows, 0), 0)
       max_rows_ = optval(max_rows, -1)