Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
conditional_7.f90
blob: 87e621a6f74ec2c7ad62909e72ea01704333e941 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2023"
}
module
m
contains
function
f
(
n
)
result
(
str
)
integer
,
value
::
n
character
(
len
=(
n
>
5
?
n
:
5
))
::
str
str
=
""
str
(
1
:
5
)
=
"abcde"
end
end