https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61632
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #1 from kargl at gcc dot gnu.org ---
(In reply to Arnaud Desitter from comment #0)
> 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
If you're going to check for an error, then you should use it.
This should be closed.
