[Bug fortran/29344] New: [gfortran,4.2.0 regression] valid ALLOCATE-statement rejected

["martin at mpa-garching dot mpg dot de" <gcc-bugzilla at gcc dot gnu dot org>]

Current mainline gfortran rejects the following code:

program test
type foo
  integer size
  real,pointer,dimension(:) :: vals
end type

type(foo) var1
var1%size=5
allocate(var1%vals(var1%size))
end program

~/tmp>gfortran -v test.f90
Driving: gfortran -v test.f90 -lgfortranbegin -lgfortran -lm -shared-libgcc
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: /scratch/gcc/configure --prefix=/afs/mpa/data/martin/ugcc
--enable-languages=c++,fortran --with-gmp=/afs/mpa/data/martin/mygmp
--with-mpfr=/afs/mpa/data/martin/mympfr --without-makeinfo --disable-tls
Thread model: posix
gcc version 4.2.0 20061004 (experimental)
 /afs/mpa/data/martin/ugcc/libexec/gcc/i686-pc-linux-gnu/4.2.0/f951 test.f90
-quiet -dumpbase test.f90 -mtune=generic -auxbase test -version -I
/afs/mpa/data/martin/ugcc/lib/gcc/i686-pc-linux-gnu/4.2.0/finclude -o
/tmp/ccL7Uf1l.s
GNU F95 version 4.2.0 20061004 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 4.2.0 20061004 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
 In file test.f90:9

allocate(var1%vals(var1%size))
                 1
Error: 'var1' must not appear an the array specification at (1) in the same
ALLOCATE statement where it is itself allocated


The code is accepted by current gfortran 4.1 and by 4.2 a few days ago.
AFAICT it is valid Fortran.


-- 
           Summary: [gfortran,4.2.0 regression] valid ALLOCATE-statement
                    rejected
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: martin at mpa-garching dot mpg dot de
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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