avoit out of bounds access

2022-04-14 07:19:56 +02:00 · 2022-04-14 07:19:56 +02:00 · 3309360e4b
parent 563d566a3f
commit 3309360e4b
1 changed files with 3 additions and 0 deletions
--- a/src/YAML_parse.f90
+++ b/src/YAML_parse.f90
@ -168,8 +168,11 @@ logical function quotedString(line)

  character(len=*), intent(in) :: line

+
  quotedString = .false.

+  if (len(line) == 0) return
+
  if (scan(line(:1),IO_QUOTES) == 1) then
    quotedString = .true.
    if(line(len(line):len(line)) /= line(:1)) call IO_error(710,ext_msg=line)