[Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv

[bdavis9659 at comcast dot net]

short example to demonstrate:

       WRITE(99,100) 1
 100   FORMAT(I4)
       END

$ gfortran x.f
$ ./a.out
Segmentation fault (core dumped)


$ g77 x.f
$ ./a.out
$ cat fort.99
   1


$ gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040311 (merged 20040307))

-- 
           Summary: [gfortran]  formatted write to an un-opened unit causes
                    a segv
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565