Sign in
gnu
/
gcc
/
6b8c51083f174263d57154d530e1f903e0437941
/
.
/
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