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
PR debug/66535
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
elemental_function_1.f90
blob
8f556f4b98edb4dbb570c4417ac21e59b237acb5
1
! { dg-do compile }
2
!
3
! PR fortran/52059
4
!
5
!
6
7
subroutine
baz
8
real
(
kind
=
8
) ::
a
(
99
),
b
9
interface
bar
10
function
bar
(
x
,
y
)
11
integer
,
intent
(
in
) ::
x
,
y
12
real
(
kind
=
8
),
dimension
((
y
-
x
)) ::
bar
13
end function
bar
14
end interface
15
b
=
1.0
_8
16
a
=
foo
(
bar
(
0
,
35
) /
dble
(
34
),
b
)
17
contains
18
elemental
real
(
kind
=
8
)
function
foo
(
x
,
y
)
19
real
(
kind
=
8
),
intent
(
in
) ::
x
,
y
20
foo
=
1
21
end function
foo
22
end subroutine
baz