[Patch, fortran] PR28762 - program name 'write' causes compiler crash on if statements containing write commands.

[Steve Kargl]

On Fri, Aug 18, 2006 at 02:19:06PM +0200, Paul Thomas wrote:
> ! { dg-do compile }
> ! Tests the fix for PR28762 in which the program name would cause
> ! the compiler to test the write statement as a variable thereby generating
> ! an "Expecting VARIABLE" error.
> !
> ! Contributed by David Ham  <David@ham.dropbear.id.au>
> !
> program allocate
>  integer :: debuglevel = 1
>  integer, allocatable :: x(:)
>  if (0 < debuglevel) allocate (x(10))
> end program allocate
> 
> 

OK with a ChnageLog entry.

-- 
Steve