URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! PR 38507
|
! PR 38507
|
! Verify that we correctly flag invalid gotos, while not flagging valid gotos.
|
! Verify that we correctly flag invalid gotos, while not flagging valid gotos.
|
integer i,j
|
integer i,j
|
|
|
do i=1,10
|
do i=1,10
|
goto 20
|
goto 20
|
20 end do ! { dg-warning "is not in the same block" }
|
20 end do ! { dg-warning "is not in the same block" }
|
|
|
goto 20 ! { dg-warning "is not in the same block" }
|
goto 20 ! { dg-warning "is not in the same block" }
|
goto 25 ! { dg-warning "is not in the same block" }
|
goto 25 ! { dg-warning "is not in the same block" }
|
goto 40 ! { dg-warning "is not in the same block" }
|
goto 40 ! { dg-warning "is not in the same block" }
|
goto 50 ! { dg-warning "is not in the same block" }
|
goto 50 ! { dg-warning "is not in the same block" }
|
|
|
goto 222
|
goto 222
|
goto 333
|
goto 333
|
goto 444
|
goto 444
|
|
|
222 if (i < 0) then
|
222 if (i < 0) then
|
25 end if ! { dg-warning "is not in the same block" }
|
25 end if ! { dg-warning "is not in the same block" }
|
|
|
333 if (i > 0) then
|
333 if (i > 0) then
|
do j = 1,20
|
do j = 1,20
|
goto 30
|
goto 30
|
end do
|
end do
|
else if (i == 0) then
|
else if (i == 0) then
|
goto 30
|
goto 30
|
else
|
else
|
goto 30
|
goto 30
|
30 end if
|
30 end if
|
|
|
444 select case(i)
|
444 select case(i)
|
case(0)
|
case(0)
|
goto 50
|
goto 50
|
goto 60 ! { dg-warning "is not in the same block" }
|
goto 60 ! { dg-warning "is not in the same block" }
|
case(1)
|
case(1)
|
goto 40
|
goto 40
|
goto 50
|
goto 50
|
40 continue ! { dg-warning "is not in the same block" }
|
40 continue ! { dg-warning "is not in the same block" }
|
60 continue ! { dg-warning "is not in the same block" }
|
60 continue ! { dg-warning "is not in the same block" }
|
50 end select ! { dg-warning "is not in the same block" }
|
50 end select ! { dg-warning "is not in the same block" }
|
continue
|
continue
|
|
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.