gcc/testsuite/gfortran.dg/init_flag_20.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fbackslash -finit-local-zero -fno-init-local-zero -fdump-tree-original" }
   3 !
   4 ! PR fortran/87919
   5 !
   6 ! Make sure -fno-init-local-zero disables -finit-local-zero.
   7 !
   8
   9 include 'init_flag_1.f90'
  10
  11 ! Make sure no initialization code is generated.
  12 ! { dg-final { scan-tree-dump-times "r\[1-4] *= *\[0\{]" 0 "original" } }
  13 ! { dg-final { scan-tree-dump-times "l\[12] *= *\[0\{]" 0 "original" } }
  14 ! { dg-final { scan-tree-dump-times "i\[1-4] *= *\[0\{]" 0 "original" } }
  15 ! { dg-final { scan-tree-dump-times "memmove *\[(]\[^,]*c\[1-4]" 0 "original" } }