summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/automatic_char_len_1.f90
blob: 3ccfcb70de8053d5d791c37b461fd6d93d26b876 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { 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