gcc/testsuite/gfortran.dg/o_fast_stacksize.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Ofast -fmax-stack-var-size=100 -fdump-tree-original" }
   3 MODULE foo
   4 CONTAINS
   5   SUBROUTINE mysum(a)
   6     INTEGER :: a(:)
   7     WRITE(6,*) SUM(a)
   8   END SUBROUTINE
   9 END MODULE foo
  10
  11 USE foo
  12 INTEGER, ALLOCATABLE :: a(:)
  13 INTEGER, PARAMETER :: N=2**26 ! 256Mb array
  14 ALLOCATE(a(N)) ; a=1
  15 CALL mysum(a*a)
  16 END
  17 ! { dg-final { scan-tree-dump-times "__builtin_malloc" 2 "original" } }