blob: 3ccfcb70de8053d5d791c37b461fd6d93d26b876 [file] [log] [blame]
! { dg-do compile }
! PR18082 - Compiler would get stuck in loop, whilst treating
! the assignments.
! Test is one of PR cases.
subroutine snafu (i)
character*(i) :: c1, c2
c1 = ""
c2 = ""
end subroutine snafu