[Bug libfortran/114304] [13/14 Regression] libgfortran I/O – bogus "Semicolon not allowed as separator with DECIMAL='point'"

[rguenth at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114304

--- Comment #27 from Richard Biener <rguenth at gcc dot gnu.org> ---
And find_group_name does

   ios = 0
   do while (ios <= 0)
      read(unit, '(a)', iostat=ios, end=102) inrec
...
         inrec2 = to_lower(adjustl(inrec))

         ! check for leading '&'
         if (inrec2(1:1) == '&') then

            ! check for case insensitive group name
            if (trim(lc_group) == inrec2(2:len_grp+1)) then

               ! found group name.  backspace to leave file position at this
record
               backspace(unit)
               status = 0
               return