blob: cd130761a1b5abdf6c612a51ab291b184059c956 [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/51055
! PR fortran/45170 comment 14
!
! Contributed by Juha Ruokolainen
! and Hans-Werner Boschmann
!
! gfortran was before checking whether the length
! was a specification expression.
!
program a
character(len=:), allocatable :: s
integer :: i=10
allocate(character(len=i)::s)
end program a