Sign in
llvm
/
llvm-archive
/
7c2014e6d10413401c0984772345d9d61701eeba
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
func_result_2.f90
blob: 2b457d9d44f6a9b93e4f64859263e2dbd19957f2 [
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