Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
char_result_18.f90
blob: f47c88ad4b3ba7bfc9e5c22a99fa3eadc23b983e [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
Tests
the fix
for
PR80657
.
!
!
Contributed
by
Vittorio
Zecca
<
zeccav@gmail
.
com
>
!
function
f
(
x
)
implicit
character
(
len
(
f
))
(
x
)
!
{
dg
-
error
"Self reference in character length"
}
character
(
len
(
x
))
f
end