From 01719874ead705ac34b81c8fad67a9ab46f7809f Mon Sep 17 00:00:00 2001
From: Philip Eisenlohr <eisenlohr@egr.msu.edu>
Date: Wed, 15 Feb 2023 16:36:20 -0500
Subject: [PATCH] one more CRLF check

---
 src/IO.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/IO.f90 b/src/IO.f90
index c83ea1a22..4685c955f 100644
--- a/src/IO.f90
+++ b/src/IO.f90
@@ -729,6 +729,7 @@ subroutine selfTest()
   if (CRLF2LF('A'//CR//LF//'B') /= 'A'//LF//'B')     error stop 'CRLF2LF/3'
   if (CRLF2LF('A'//CR//LF//'B'//CR//LF) /= &
               'A'//LF//'B'//LF)                      error stop 'CRLF2LF/4'
+  if (CRLF2LF('A'//LF//CR//'B') /= 'A'//LF//CR//'B') error stop 'CRLF2LF/5'
 
   str='  ';        if (.not. IO_isBlank(str))        error stop 'IO_isBlank/1'
   str='  #isBlank';if (.not. IO_isBlank(str))        error stop 'IO_isBlank/2'