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
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
noncompile
/
19990218-1.f
blob
25b7c5b2b52c335a3ab99877fafba181dda5d0fd
1
double precision
function
fun
(
a
,
b
)
2
double precision
a
,
b
3
print*
,
'in sub: a,b='
,
a
,
b
4
fun
=
a*b
5
print*
,
'in sub: fun='
,
fun
6
return
7
end
8
program
test
9
double precision
a
,
b
,
c
10
data a
,
b
/
1.0
d
-
46
,
1.0
d0
/
11
c
=
fun
(
a
,
b
)
12
print*
,
'in main: fun='
,
c
13
end