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
FSF GCC merge 02/23/03
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
19990218-0.f
blob
3e34117ec693d058569bb9b98568a8f720191d0f
1
program
test
2
double precision
a
,
b
,
c
3
data a
,
b
/
1.0
d
-
46
,
1.0
d0
/
4
c
=
fun
(
a
,
b
)
5
print*
,
'in main: fun='
,
c
6
end
7
double precision
function
fun
(
a
,
b
)
8
double precision
a
,
b
9
print*
,
'in sub: a,b='
,
a
,
b
10
fun
=
a*b
11
print*
,
'in sub: fun='
,
fun
12
return
13
end