[Bug fortran/28762] New: program name 'write' causes compiler crash on if statements containing write commands.

["David at ham dot dropbear dot id dot au" <gcc-bugzilla at gcc dot gnu dot org>]

The following program:

program write
  implicit none
  integer :: debuglevel = 1

  if (0 < debuglevel) write (0, "('test == ', f0.3)") 0.75

end program write

produces the following error at compile time:
> gfortran foo.f90
 In file foo.f90:5

  if (0 < debuglevel) write (0, "('test == ', f0.3)") 0.75
                          1
Error: Expected VARIABLE at (1)

Changing any of:
* The program name
* The if statement into an if then block
* Removing the if statement leaving the write
removes the problem.

The problem was not exhibited on svn build 114142 but it is not known at which
intervening version the problem arose.


-- 
           Summary: program name 'write' causes compiler crash on if
                    statements containing write commands.
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: David at ham dot dropbear dot id dot au
 GCC build triplet: Gcc 4.2.0 (svn 116183) of 20060816 on RHEL4 x86_64
  GCC host triplet: Gcc 4.2.0 (svn 116183) of 20060816 on RHEL4 x86_64
GCC target triplet: RHEL4 x86_64


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