From 37d7e593e8ee29dc5522284d95daa65ab5cdc6e7 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 1 Jun 2020 22:09:28 +0200
Subject: [PATCH] correct counting of lines

counts like "wc -l" either with or without EOL in last line
---
 src/IO.f90 | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/IO.f90 b/src/IO.f90
index e54520c5d..79eb15051 100644
--- a/src/IO.f90
+++ b/src/IO.f90
@@ -70,16 +70,13 @@ function IO_read_ASCII(fileName) result(fileContent)
     startPos, endPos, &
     N_lines, &                                                                                      !< # lines read from file
     l, &
+    i, &
     myStat
   logical :: warned
 
 !--------------------------------------------------------------------------------------------------
 ! read data as stream
   inquire(file = fileName, size=fileLength)
-  if (fileLength == 0) then
-    allocate(fileContent(0))
-    return
-  endif
   open(newunit=fileUnit, file=fileName, access='stream',&
        status='old', position='rewind', action='read',iostat=myStat)
   if(myStat /= 0) call IO_error(100,ext_msg=trim(fileName))
@@ -89,10 +86,15 @@ function IO_read_ASCII(fileName) result(fileContent)
 
 !--------------------------------------------------------------------------------------------------
 ! count lines to allocate string array
-  N_lines = 1
+  N_lines = 0
+  i = 0
   do l=1, len(rawData)
-    if (rawData(l:l) == IO_EOL) N_lines = N_lines+1
+    if (rawData(l:l) == IO_EOL) then
+      N_lines = N_lines+1
+      i = l
+    endif
   enddo
+  if(i+1/=l) N_lines = N_lines+1                                                                      ! no EOL in last line
   allocate(fileContent(N_lines))
 
 !--------------------------------------------------------------------------------------------------