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