pr85542.f90 « gfortran.dg « testsuite « gcc - maxim-kuvyrkov/gcc-pretty.git - [no description]

index : maxim-kuvyrkov/gcc-pretty.git

[no description]

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pr85542.f90

blob: f61d2c9beb0b3284a3afe8b8a63a1a8c5249551b (plain)

! { dg-do compile }
! PR fortran/85542
function f(x)
   character(*), intent(in) :: x
   character((len((x)))) :: f
   f = x
end