Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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