[Bug fortran/70235] [4.9/5/6 Regression] Incorrect output with PF format

[dominiq at lps dot ens.fr]

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

--- Comment #21 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Nice work!

Unfortunately not finished yet!-(

program fmt
  implicit none
  real*4 y
  character(45) :: fmtstr
  integer :: p,w,d
  y = 643.125
  d=2
  w=18
  do p=-8,7
    write(fmtstr,"(g0,g0,g0,g0,g0,g0,g0,g0)") '(a,','"
y=",ru,',p,'pf',w,'.',d,')'
    write(*,fmtstr) fmtstr(10:scan(fmtstr,')')-1), y
  end do
end program fmt

gives

ru,-8pf18.2 y=              1.00
ru,-7pf18.2 y=              1.00
ru,-6pf18.2 y=              1.00
ru,-5pf18.2 y=              0.01
...