repo.or.cz
/
official-gcc
/
alias-decl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2010-07-27 Paolo Carlini <paolo.carlini@oracle.com>
[official-gcc/alias-decl.git]
/
gcc
/
testsuite
/
gfortran.dg
/
dependency_18.f90
blob
cb0799d1fab947dd2a37d0594525b48af534ae90
1
! { dg-do compile }
2
! { dg-options "-O2 -fdump-tree-original" }
3
subroutine
foo
(
a
,
i
,
j
,
k
)
4
integer
,
dimension
(
10
) ::
a
5
integer
::
i
,
j
,
k
6
7
a
(
1
:
5
:
2
) =
a
(
8
:
6
:-
1
)
8
9
a
(
1
:
8
) =
a
(
2
:
9
)
10
11
a
(
4
:
7
) =
a
(
4
:
1
:-
1
)
12
13
a
(
i
:
i
+
2
) =
a
(
i
+
4
:
i
+
6
)
14
15
a
(
j
:
1
:-
1
) =
a
(
j
:
5
)
16
17
a
(
k
:
k
+
2
) =
a
(
k
+
1
:
k
+
3
)
18
end subroutine
19
! { dg-final { scan-tree-dump-times "malloc" 0 "original" } }
20
! { dg-final { cleanup-tree-dump "original" } }