gcc/testsuite/gfortran.dg/automatic_char_len_1.f90


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