[Bug fortran/28119] New: forall_stmt ; stmt gives an internal error

[paul dot richard dot thomas at cea dot fr]

In the course of understanding pr25072, I came across this beauty.

$ cat test.f90
   real a(2)
   forall (i = 1:2) a(i) = i ; a = 2.0 * a
end

[EMAIL PROTECTED] /cygdrive/d/svn/prs
$ /snap/bin/gfortran test.f90
 In file test.f90:2

   forall (i = 1:2) a(i) = i ; a = 2.0 * a
  1
 Internal Error at (1):
 free_expr0(): Bad expr type

Paul


-- 
           Summary: forall_stmt ; stmt gives an internal error
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paul dot richard dot thomas at cea dot fr


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