8 abc: do j = 1, 3 ! { dg-error "Duplicate construct label" }
11 end do abc ! { dg-error "Expecting END PROGRAM" }
16 xyz: do j = 1, 5 ! { dg-error "Duplicate construct label" }
18 end do loop ! { dg-error "Expecting END PROGRAM" }
21 her: if (j == 1) then ! { dg-error "Duplicate construct label" }
24 end if her ! { dg-error "Expecting END PROGRAM" }
29 his: if (j === 1) then ! { dg-error "Duplicate construct label" }
31 end if his ! { dg-error "Expecting END PROGRAM" }
35 sgk: select case (j) ! { dg-error "Duplicate construct label" }
41 case (2) ! { dg-error "Unexpected CASE statement" }
44 end select sgk ! { dg-error "Expecting END PROGRAM" }
52 apl: select case (i) ! { dg-error "Duplicate construct label" }
53 case (1) ! { dg-error "Unexpected CASE statement" }
55 case (2) ! { dg-error "Unexpected CASE statement" }
57 end select apl ! { dg-error "Expecting END PROGRAM" }