Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/init_flag_20.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
line wrap: on
line source

! { dg-do compile }
! { dg-options "-fbackslash -finit-local-zero -fno-init-local-zero -fdump-tree-original" }
!
! PR fortran/87919
!
! Make sure -fno-init-local-zero disables -finit-local-zero.
!

include 'init_flag_1.f90'

! Make sure no initialization code is generated.
! { dg-final { scan-tree-dump-times "r\[1-4] *= *\[0\{]" 0 "original" } }
! { dg-final { scan-tree-dump-times "l\[12] *= *\[0\{]" 0 "original" } }
! { dg-final { scan-tree-dump-times "i\[1-4] *= *\[0\{]" 0 "original" } }
! { dg-final { scan-tree-dump-times "memmove *\[(]\[^,]*c\[1-4]" 0 "original" } }