[Bug fortran/66461] New: ICE on missing end program in fixed source

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 66461
           Summary: ICE on missing end program in fixed source
           Product: gcc
           Version: 5.1.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

A missing end program in a "fixed" source s.f :
      program p
         integer x(2)
         x = 0
         if ( x(1) < 0 .or.
     &        x(2) < 0 ) print *, x
      !end

yields :
f951: internal compiler error: free_expr0(): Bad expr type

---

Whereas a missing end program in a "free" source s.f90 :
      program p
         integer x(2)
         x = 0
         if ( x(1) < 0 .or. &
              x(2) < 0 ) print *, x
      !end

yields :
f951: Error: Unexpected end of file in 's.f90'