blob: cd130761a1b5abdf6c612a51ab291b184059c956 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|