Merge pull request #2191 from andrew-platt/b/InitFileInfo_blankLine

[BugFix] blank line not handled by InitFileInfo
OpenFAST · May 8, 2024 · 7bffa49 · 7bffa49
2 parents dc48c26 + e26114d
commit 7bffa49
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/modules/nwtc-library/src/NWTC_IO.f90 b/modules/nwtc-library/src/NWTC_IO.f90
@@ -4111,7 +4111,9 @@ subroutine InitFileInfo_FromNullCString(FileString, FileInfo, ErrStat, ErrMsg)
          NullLoc = index(FileString(idx:len(FileString)),C_NULL_CHAR)
          ! started indexing at idx, so add that back in for location in FileString
          NullLoc = NullLoc + idx - 1
-         if (NullLoc > idx) then
+         if (NullLoc == idx) then   ! blank line
+            FileStringArray(Line) = ''
+         elseif (NullLoc > idx) then
             FileStringArray(Line) = trim(FileString(idx:NullLoc-1))
          else
             ! If not NULL terminated

diff --git a/reg_tests/r-test b/reg_tests/r-test