Sign in
gnu
/
gcc
/
04a040d907a83af54e0a98bdba5bfabc0ef4f700
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
func_result_4.f90
blob: c3da2d60fc3d485874b6220118b229c8dcf45765 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-c"
}
!
!
Do
not
apply the SAVE attribute to
function
results
.
!
FUNCTION f
()
RESULT
(
g
)
INTEGER
::
g
SAVE
g
=
42
END
FUNCTION