From c0b928021875b73b9c79d35494b1766074d8620d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 19 Dec 2023 21:26:31 +0100 Subject: [PATCH] variables in stop code not supported by older compilers --- src/IO.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 74f23a678..4c0676ec8 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -919,7 +919,7 @@ subroutine IO_selfTest() call tokenize('','$',tokens) if (size(tokens) /= 0 .or. len(tokens) /=0) error stop 'tokenize empty' call tokenize('abcd','dcba',tokens) - if (size(tokens) /= 0 .or. len(tokens) /=0) error stop 'tokenize empty' + if (size(tokens) /= 0 .or. len(tokens) /=0) error stop 'tokenize only separators' tokens=['a'] call test_tokenize('a','#',tokens) @@ -958,7 +958,8 @@ subroutine IO_selfTest() call tokenize(input,delimiter,tok) do i = 1,size(tok) - if (solution(i) /= tok(i)) error stop 'tokenize "'//solution(i)//'" vs. "'//tok(i)//'"' + !if (solution(i) /= tok(i)) error stop 'tokenize "'//solution(i)//'" vs. "'//tok(i)//'"' ! requires 2018 standard + if (solution(i) /= tok(i)) error stop 'tokenize' end do end subroutine test_tokenize