number_of_columns: read whole line (#926)

Author: perazz

src/stdlib_io.fypp

@@ -252,6 +252,7 @@ contains
 
     integer :: ios, skiprows_, i
     character :: c
+    character(len=:), allocatable :: line
     logical :: lastblank
 
     skiprows_ = optval(skiprows, 0)
@@ -261,12 +262,15 @@ contains
     do i = 1, skiprows_
       read(s, *)
     end do
-
     number_of_columns = 0
+    
+    ! Read first non-skipped line as a whole
+    call getline(s, line, ios)
+    if (ios/=0 .or. .not.allocated(line)) return
+
     lastblank = .true.
-    do
-      read(s, '(a)', advance='no', iostat=ios) c
-      if (ios /= 0) exit
+    do i = 1,len(line)
+      c = line(i:i)
       if (lastblank .and. .not. is_blank(c)) number_of_columns = number_of_columns + 1
       lastblank = is_blank(c)
     end do