| ! { dg-do compile } | |
| ! PR fortran/29067 | |
| implicit none | |
| integer :: n, i | |
| character(len=16),parameter :: s = "", s2 = "1234567890123456" | |
| i = 0 ; n = 9 | |
| print *, s(9:16) | |
| print *, s2(9:16) | |
| if (s(9:16) == "90123456") then | |
| endif | |
| if (i > 0) then | |
| write (i,*) n | |
| call foo(0) | |
| endif | |
| do i = 1, n | |
| end do | |
| end |