PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays

[official-gcc.git] / gcc / testsuite / gfortran.dg / char_result_18.f90

! { 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