https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61632
Bug ID: 61632 Summary: memory corruption in Fortran RTL when writing formatted data Product: gcc Version: 4.8.2 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: arnaud02 at users dot sourceforge.net Problem 1: using the following program: 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 600 FORMAT(1PE13.5,4X,A3) end subroutine ss with gfortran 4.9.0 results in a executable that crashes: 0.00000E+00 XXX iostat= 5006 0.00000E+00 XXX Program received signal SIGSEGV: Segmentation fault - invalid memory reference. A run under valgrind shows: 0.00000E+00 XXX iostat= 5006 0.00000E+00 XXX ==13768== Invalid read of size 8 ==13768== at 0x414250: _gfortrani_format_error (format.c:1147) ==13768== by 0x4047D6: require_type.part.7 (transfer.c:1158) ==13768== by 0x406718: formatted_transfer (transfer.c:1150) ==13768== by 0x404AE5: _gfortran_transfer_array (transfer.c:2170) gfortran 4.7.1 is not affected but gfortran 4.8.2 and 4.9.0 are. Problem 2: using the following program: program p call ss() call ss() end program p subroutine ss CHARACTER(3), save :: ZTYP(3) DATA ZTYP /'XXX','YYY','ZZZ'/ write(*,600) 0.0,ZTYP 600 FORMAT(1PE13.5,A3) end subroutine ss with gfortran 4.9.0 results in a executable that produces: -- 0.00000E+00XXX At line 8 of file io2.f (unit = 6, file = 'stdout') Fortran runtime error: Expected REAL for item 3 in formatted transfer, got CHARACTER (1PE13.5,A3) ^ -- The message is unclear as there are only 2 items. Moreover the expected type looks incorrect. gfortran 4.6.3, 4.7.2, 4.8.2 and 4.9.0 are affected.