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
...
