obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 27 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr33276.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/pr33276.f90
new file mode 100644
index 000000000..0eaac1a49
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr33276.f90
@@ -0,0 +1,27 @@
+! PR fortran/33276
+! this used to crash due to an uninitialized variable in expand_iterator.
+
+module foo
+   type buffer_type
+   integer(kind=kind(1)) :: item_end
+   character(256) :: string
+   end type
+   type textfile_type
+   type(buffer_type) :: buffer
+   end type
+contains
+   function rest_of_line(self) result(res)
+    type(textfile_type) :: self
+     intent(inout) :: self
+     character(128) :: res
+     res = self%buffer%string(self%buffer%item_end+1: )
+   end function
+
+   subroutine read_intvec_ptr(v)
+      integer(kind=kind(1)), dimension(:), pointer :: v
+      integer(kind=kind(1)) :: dim,f,l,i
+
+     if (dim>0) then; v = (/ (i, i=f,l)    /)
+     end if
+   end subroutine
+end