[Bug fortran/125924] False positive for [-Wunused-read]

[manfred99 at gmx dot ch via Gcc-bugs]

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

--- Comment #1 from Manfred Schwarb <manfred99 at gmx dot ch> ---
A variant of the mentioned code:
cat > unused4.f <<EOF
      program unused4

      character(len=100) buffer,buffer2

      buffer="123"
      READ(buffer,'(a)') buffer2
      !!print*,TRIM(buffer)
      print*,TRIM(buffer2)

      end
EOF

#> /usr/local/gfortran-17/bin/gfortran -Wall -W unused4.f -o unused4
unused4.f:5:13:

    5 |       buffer="123"
      |             1
Warning: Variable 'buffer' defined at (1) but never used
[-Wunused-but-set-variable=]