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, 30 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90
new file mode 100644
index 000000000..6342e1a40
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/stack_varsize.f90
@@ -0,0 +1,30 @@
+! Program to test the stack variable size limit.
+program stack
+   call sub1
+   call sub2 (1)
+contains
+
+   ! Local variables larger than 32768 in byte size shall be placed in static
+   ! storage area, while others be put on stack by default.
+   subroutine sub1
+      real a, b(32768/4), c(32768/4+1) 
+      integer m, n(1024,4), k(1024,1024)
+      a = 10.0
+      b = 20.0
+      c = 30.0
+      m = 10
+      n = 20
+      k = 30
+      if ((a .ne. 10.0).or.(b(1) .ne. 20.0).or.(c(1) .ne. 30.0)) call abort
+      if ((m .ne. 10).or.(n(256,4) .ne. 20).or.(k(1,1024) .ne. 30)) call abort
+   end subroutine
+
+   ! Local variables defined in recursive subroutine are always put on stack.
+   recursive subroutine sub2 (n)
+      real a (32769)
+      a (1) = 42
+      if (n .ge. 1) call sub2 (n-1)
+      if (a(1) .ne. 42) call abort
+      a (1) = 0
+   end subroutine
+end