Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
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