Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/o_fast_stacksize.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-Ofast -fmax-stack-var-size=100 -fdump-tree-original" } MODULE foo CONTAINS SUBROUTINE mysum(a) INTEGER :: a(:) WRITE(6,*) SUM(a) END SUBROUTINE END MODULE foo USE foo INTEGER, ALLOCATABLE :: a(:) INTEGER, PARAMETER :: N=2**26 ! 256Mb array ALLOCATE(a(N)) ; a=1 CALL mysum(a*a) END ! { dg-final { scan-tree-dump-times "__builtin_malloc" 2 "original" } }