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-optimization/113385 - wrong loop father with early exit vectorization
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
statement_function_3.f
blob
dcfb3e2b9dc1551a6a4256da3024f02aeb5e2057
1
! {
dg
-
do
compile
}
2
!
PR fortran
/
35299
3
subroutine
phtod
(
e
,
n
,
i
,
h
)
4
dimension
e
(
n
)
5
hstar
(
e
,
b
)=
b**
.4
*((
1.25
*
fun
(-
e
/
40
)+
.18
)) ! {
dg
-
error
"must be scalar"
}
6
a
=
1
.
7
h
=
hstar
(
e
(
i
-
1
),
a
)
8
end
9
10
function
fun
(
a
)
11
real
a
(*)
12
fun
=
42
13
end
14
! {
dg
-
prune
-
output
" Obsolescent feature"
}
15