223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

variables in stop code not supported by older compilers

This commit is contained in:
Martin Diehl 2023-12-19 21:26:31 +01:00
parent ace7d8f003
commit c0b9280218
No known key found for this signature in database
GPG Key ID: 1FD50837275A0A9B
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/IO.f90
View File

@ -919,7 +919,7 @@ subroutine IO_selfTest()
call tokenize('','$',tokens) call tokenize('','$',tokens)
if (size(tokens) /= 0 .or. len(tokens) /=0) error stop 'tokenize empty' if (size(tokens) /= 0 .or. len(tokens) /=0) error stop 'tokenize empty'
call tokenize('abcd','dcba',tokens) 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'] tokens=['a']
call test_tokenize('a','#',tokens) call test_tokenize('a','#',tokens)
@ -958,7 +958,8 @@ subroutine IO_selfTest()
call tokenize(input,delimiter,tok) call tokenize(input,delimiter,tok)
do i = 1,size(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 do
end subroutine test_tokenize end subroutine test_tokenize