OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
f2c_8.f90
1
! { dg-do compile }
2
! { dg-options "-ff2c" }
3
! PR 25392
4
! Verify that the type of the result variable matches the declared
5
! type of the function. The actual type of the function may be
6
! different for f2c calling conventions.
7
real function goo () result (foo)
8
real x
9
foo = sign(foo, x)
10
end
11
12
real function foo ()
13
real x
14
foo = sign(foo, x)
15
end
16