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