re PR fortran/37472 (bad output on default-format write of double in common block...