diff --git a/code/IO.f90 b/code/IO.f90 index 55501a112..3a98e478d 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -676,6 +676,9 @@ endfunction do while (verify(line(right+1:),sep)>0) left = right + verify(line(right+1:),sep) right = left + scan(line(left:),sep) - 2 + if ( line(left:left) == '#' ) then + exit + endif if ( IO_stringPos(1)