[fix] a bug where \s did not match whitespace.

ShinobuAmasaki · Aug 6, 2024 · e127045 · e127045
1 parent 19a87f4
commit e127045
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/segment_m.F90 b/src/segment_m.F90
@@ -290,9 +290,12 @@ pure function symbol_to_segment(symbol) result(res)
       integer(int32) :: i, i_end, code
 
       ! If `symbol` is a empty character, return SEG_EMPTY
-      if (symbol == '') then
+      if (symbol == char(0)) then
          res = SEG_EMPTY
          return
+      else if (symbol == char(32)) then
+         res = SEG_SPACE
+         return
       end if
 
       ! Initialize indices