1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
! { dg-do compile }
program main
real, dimension(3) :: a
a = 42.
do i=-1,3,2 ! { dg-warning "out of bounds" }
a(i) = 0 ! { dg-warning "out of bounds \\(-1 < 1\\)" }
end do
do i=4,1,-1 ! { dg-warning "out of bounds" }
a(i) = 22 ! { dg-warning "out of bounds \\(4 > 3\\)" }
end do
do i=1,4 ! { dg-warning "out of bounds" }
a(i) = 32 ! { dg-warning "out of bounds \\(4 > 3\\)" }
end do
do i=3,0,-1 ! { dg-warning "out of bounds" }
a(i) = 12 ! { dg-warning "out of bounds \\(0 < 1\\)" }
end do
do i=-1,3
if (i>0) a(i) = a(i) + 1 ! No warning inside if
end do
do i=-1,4
select case(i)
case(1:3)
a(i) = -234 ! No warning inside select case
end select
end do
do i=1,3 ! { dg-warning "out of bounds" }
a(i+1) = a(i) ! { dg-warning "out of bounds \\(4 > 3\\)" }
a(i-1) = a(i) ! { dg-warning "out of bounds \\(0 < 1\\)" }
end do
do i=3,1,-1 ! { dg-warning "out of bounds" }
a(i) = a(i-1) ! { dg-warning "out of bounds \\(0 < 1\\)" }
a(i) = a(i+1) ! { dg-warning "out of bounds \\(4 > 3\\)" }
end do
do i=1,2 ! { dg-warning "out of bounds" }
a(i) = a(i*i) ! { dg-warning "out of bounds \\(4 > 3\\)" }
end do
do i=1,4,2
a(i) = a(i)*2 ! No error
end do
do i=1,4
if (i > 3) exit
a(i) = 33
end do
do i=0,3 ! { dg-warning "out of bounds \\(0 < 1\\)" }
a(i) = 13. ! { dg-warning "out of bounds \\(0 < 1\\)" }
if (i < 1) exit
end do
do i=0,3
if (i < 1) cycle
a(i) = -21.
end do
do i=0,3 ! { dg-warning "out of bounds \\(0 < 1\\)" }
do j=1,2
a(i) = -123 ! { dg-warning "out of bounds \\(0 < 1\\)" }
end do
end do
end program main
|
