[Bug fortran/61632] Memory corruption on error when writing formatted data

[dominiq at lps dot ens.fr]

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

--- Comment #10 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The following code

      program p
      call ss0()
      end program p
      subroutine ss0
      CHARACTER(3), save :: ZTYP(3)
      DATA ZTYP /'XXX','YYY','ZZZ'/
      write(*,600,IOSTAT=iosa) 'AAA',0.0,ZTYP
 600  FORMAT(A3,1PE13.5,A3)
      print *,
      print *, 'iostat =', iosa
      end subroutine ss0

outputs

AAA  0.00000E+00XXX
YYY
 iostat =        5006

Is the printing of 'YYY' supposed to happen?