repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* tree-loop-distribution.c (struct partition): New field recording
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
array_memset_1.f90
blob
f87398b05ad8fe2e7809878f0322283f818264ab
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" } }