OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fix PR42186.
[pf3gnuchains/gcc-fork.git]
/
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" } }