Sign in
llvm
/
llvm-archive
/
48649d2c83b557841c9e5c978d9ab5af13cb52e5
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
func_result_2.f90
blob: 6b91653ed9da878c317fa6158573076f72e50944 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Character
functions
with
a result clause were broken
program testch
if
(
ch
().
ne
.
"hello "
)
call abort
()
contains
function
ch
()
result
(
str
)
character
(
len
=
10
)
::
str
str
=
"hello"
end
function
ch
end
program testch