Sign in
llvm
/
llvm-archive
/
2d92d8f3eda4630e3e80be62081ca797828d58e1
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
spec_expr_2.f90
blob: 5b0500d735b17d237d0c6393920b6f54b3ba7246 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
22273
:
Allow
INTENT
(
OUT
)
dummy
:
s
as
arguments to LEN
()
in
specification
!
expr
:
s
subroutine lecligne
(
ligne
)
character
(
len
=*),
intent
(
out
)
::
ligne
character
(
len
=
len
(
ligne
))
::
comment
end
subroutine lecligne