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

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

[gerhard.steinmetz.fortran@t-online.de]

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'

[Bug fortran/66461] [4.9/5/6 Regression] ICE on missing end program in fixed source

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
      Known to work|                            |4.4.7
           Keywords|                            |ice-on-invalid-code
   Last reconfirmed|                            |2015-08-29
     Ever confirmed|0                           |1
            Summary|ICE on missing end program  |[4.9/5/6 Regression] ICE on
                   |in fixed source             |missing end program in
                   |                            |fixed source
      Known to fail|                            |4.5.0

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> That's obviously an old regression: ...

As old as r154654.

[Bug fortran/66461] [4.9/5/6 Regression] ICE on missing end program in fixed source

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #3 from kargl at gcc dot gnu.org ---
The bug surfaces at line 1439 in match.c.  The line is

  gfc_match (" if ( %e ) ", &expr);     /* Guaranteed to match.  */

The comment is wrong.  For some reason, splitting
the expression across the two lines causes a match
failure.  Changing the above to 

  m = gfc_match (" if ( %e ) ", &expr);
  if (m != MATCH_YES)
    return m;

yields

troutmask:sgk[232] gfc6 -c g5.f
g5.f:5:72:

Error: Syntax error in expression at (1)
f951: Error: Unexpected end of file in 'g5.f'

which yields a bogus error and the desired error.

[Bug fortran/66461] [4.9/5/6 Regression] ICE on missing end program in fixed source

[rguenth at gcc dot gnu.org]

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

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.9.4