! { dg-do compile }
|
! { dg-do compile }
|
! PR 21257
|
! PR 21257
|
program dups
|
program dups
|
|
|
integer i,j,k
|
integer i,j,k
|
|
|
abc: do i = 1, 3
|
abc: do i = 1, 3
|
abc: do j = 1, 3 ! { dg-error "Duplicate construct label" }
|
abc: do j = 1, 3 ! { dg-error "Duplicate construct label" }
|
k = i + j
|
k = i + j
|
end do abc
|
end do abc
|
end do abc ! { dg-error "Expecting END PROGRAM" }
|
end do abc ! { dg-error "Expecting END PROGRAM" }
|
|
|
xyz: do i = 1, 2
|
xyz: do i = 1, 2
|
k = i + 2
|
k = i + 2
|
end do xyz
|
end do xyz
|
xyz: do j = 1, 5 ! { dg-error "Duplicate construct label" }
|
xyz: do j = 1, 5 ! { dg-error "Duplicate construct label" }
|
k = j + 2
|
k = j + 2
|
end do loop ! { dg-error "Expecting END PROGRAM" }
|
end do loop ! { dg-error "Expecting END PROGRAM" }
|
|
|
her: if (i == 1) then
|
her: if (i == 1) then
|
her: if (j == 1) then ! { dg-error "Duplicate construct label" }
|
her: if (j == 1) then ! { dg-error "Duplicate construct label" }
|
k = i + j
|
k = i + j
|
end if her
|
end if her
|
end if her ! { dg-error "Expecting END PROGRAM" }
|
end if her ! { dg-error "Expecting END PROGRAM" }
|
|
|
his: if (i == 1) then
|
his: if (i == 1) then
|
i = j
|
i = j
|
end if his
|
end if his
|
his: if (j === 1) then ! { dg-error "Duplicate construct label" }
|
his: if (j === 1) then ! { dg-error "Duplicate construct label" }
|
print *, j
|
print *, j
|
end if his ! { dg-error "Expecting END PROGRAM" }
|
end if his ! { dg-error "Expecting END PROGRAM" }
|
|
|
sgk: select case (i)
|
sgk: select case (i)
|
case (1)
|
case (1)
|
sgk: select case (j) ! { dg-error "Duplicate construct label" }
|
sgk: select case (j) ! { dg-error "Duplicate construct label" }
|
case (10)
|
case (10)
|
i = i + j
|
i = i + j
|
case (20)
|
case (20)
|
j = j + i
|
j = j + i
|
end select sgk
|
end select sgk
|
case (2) ! { dg-error "Unexpected CASE statement" }
|
case (2) ! { dg-error "Unexpected CASE statement" }
|
i = i + 1
|
i = i + 1
|
j = j + 1
|
j = j + 1
|
end select sgk ! { dg-error "Expecting END PROGRAM" }
|
end select sgk ! { dg-error "Expecting END PROGRAM" }
|
|
|
apl: select case (i)
|
apl: select case (i)
|
case (1)
|
case (1)
|
k = 2
|
k = 2
|
case (2)
|
case (2)
|
j = 1
|
j = 1
|
end select apl
|
end select apl
|
apl: select case (i) ! { dg-error "Duplicate construct label" }
|
apl: select case (i) ! { dg-error "Duplicate construct label" }
|
case (1) ! { dg-error "Unexpected CASE statement" }
|
case (1) ! { dg-error "Unexpected CASE statement" }
|
j = 2
|
j = 2
|
case (2) ! { dg-error "Unexpected CASE statement" }
|
case (2) ! { dg-error "Unexpected CASE statement" }
|
k = 1
|
k = 1
|
end select apl ! { dg-error "Expecting END PROGRAM" }
|
end select apl ! { dg-error "Expecting END PROGRAM" }
|
|
|
end program dups
|
end program dups
|
|
|