[Bug fortran/61632] memory corruption in Fortran RTL when writing formatted data

["dominiq at lps dot ens.fr" <gcc-bugzilla@gcc.gnu.org>]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2014-06-27
                 CC|                            |jvdelisle at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
      program p
      call ss()
      call ss()
      end program p
      subroutine ss
      CHARACTER(3), save :: ZTYP(3)
      DATA ZTYP /'XXX','YYY','ZZZ'/
      write(*,600,IOSTAT=iosa) 0.0,ZTYP
      write(*,*) 'iostat=',iosa
      if (iosa /= 0) print *, "error"
 600  FORMAT(1PE13.5,4X,A3)
      end subroutine ss

gives at run time

[Book15] f90/bug% a.out
  0.00000E+00    XXX
 iostat=        5006
 error
  0.00000E+00    XXX
 iostat=        5006
 error

which is right, but also

[Book15] f90/bug% a.out
  0.00000E+00    XXX
 iostat=        5006
 error
  0.00000E+00    XXX

Program received signal SIGSEGV: Segmentation fault - invalid memory reference.

Backtrace for this error:
#0  0x10b4c3892
#1  0x10b4c4030
#2  0x7fff8a4695a9
#3  0x10b581910
#4  0x10b58daf6
#5  0x10b58fd12
#6  0x10b58de05
#7  0x10b4b9cef
#8  0x10b4b9dfb
#9  0x10b4b9e34
Segmentation fault

which is wrong.

Note the behavior for "problem 2" is what I expect.