gcc/testsuite/gfortran.dg/array_memset_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -fdump-tree-original" }
   3 subroutine i1(a)
   4   integer :: a(20)
   5   a = 0;
   6 end subroutine
   7
   8 subroutine i2(a)
   9   integer :: a(20)
  10   a(:) = 0;
  11 end subroutine
  12
  13 subroutine i3(a)
  14   integer :: a(20)
  15   a(1:20) = 0;
  16 end subroutine
  17
  18 subroutine r1(a)
  19   real :: a(20)
  20   a = 0.0;
  21 end subroutine
  22
  23 subroutine r2(a)
  24   real :: a(20)
  25   a(:) = 0.0;
  26 end subroutine
  27
  28 subroutine r3(a)
  29   real :: a(20)
  30   a(1:20) = 0.0;
  31 end subroutine
  32
  33 subroutine z1(a)
  34   complex :: a(20)
  35   a = 0;
  36 end subroutine
  37
  38 subroutine z2(a)
  39   complex :: a(20)
  40   a(:) = 0;
  41 end subroutine
  42
  43 subroutine z3(a)
  44   complex :: a(20)
  45   a(1:20) = 0;
  46 end subroutine
  47
  48 subroutine l1(a)
  49   logical :: a(20)
  50   a = .false.;
  51 end subroutine
  52
  53 subroutine l2(a)
  54   logical :: a(20)
  55   a(:) = .false.;
  56 end subroutine
  57
  58 subroutine l3(a)
  59   logical :: a(20)
  60   a(1:20) = .false.;
  61 end subroutine
  62
  63 ! { dg-final { scan-tree-dump-times "memset" 12 "original" } }
  64 ! { dg-final { cleanup-tree-dump "original" } }