[Bug fortran/21409] New: Attached fortran 95 code generates error

["joe at confucius dot gnacademy dot org" <gcc-bugzilla at gcc dot gnu dot org>]

[joe@localhost hcol]$ gfortran -c difq3.F -o difq3.o
 In file difq3.F:693

         ams(1:ngmax)=
           1
Error: The FORALL with index 'j' cause more than one assignment to this object
at (1)
 In file difq3.F:696

         p2m(1:ngmax)=0.5d0*(3.0d0*ams(1:ngmax)-1d0)
           1
Error: The FORALL with index 'j' cause more than one assignment to this object
at (1)
 In file difq3.F:697

         fi(1:ngmax)=yb(j,1:ngmax,nutype)*enu(1:ngmax)
          1
Error: The FORALL with index 'j' cause more than one assignment to this object
at (1)
[joe@localhost hcol]$ make
../bin/prefort n comdecks abcd0.srs
 input files from 2 to 3: comdecks   abcd0.srs
  open file=abcd0.f

-- 
           Summary: Attached fortran 95 code generates error
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: joe at confucius dot gnacademy dot org
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i586-mandrake-linux-gnu
  GCC host triplet: i586-mandrake-linux-gnu
GCC target triplet: i586-mandrake-linux-gnu


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