Merge branch 'LFCR-check' into 'development'

one more CRLF check

See merge request damask/DAMASK!725
This commit is contained in:
Martin Diehl 2023-02-15 23:51:56 +00:00
commit 15f15c1d78
1 changed files with 1 additions and 0 deletions

View File

@ -727,6 +727,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'