diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/duplicate_labels.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/duplicate_labels.f90 | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/gcc/testsuite/gfortran.dg/duplicate_labels.f90 b/gcc/testsuite/gfortran.dg/duplicate_labels.f90 deleted file mode 100644 index 7523d0c41b5..00000000000 --- a/gcc/testsuite/gfortran.dg/duplicate_labels.f90 +++ /dev/null @@ -1,59 +0,0 @@ -! { dg-do compile } -! PR 21257 -program dups - - integer i,j,k - - abc: do i = 1, 3 - abc: do j = 1, 3 ! { dg-error "Duplicate construct label" } - k = i + j - end do abc - end do abc ! { dg-error "Expecting END PROGRAM" } - - xyz: do i = 1, 2 - k = i + 2 - end do xyz - xyz: do j = 1, 5 ! { dg-error "Duplicate construct label" } - k = j + 2 - end do loop ! { dg-error "Expecting END PROGRAM" } - - her: if (i == 1) then - her: if (j == 1) then ! { dg-error "Duplicate construct label" } - k = i + j - end if her - end if her ! { dg-error "Expecting END PROGRAM" } - - his: if (i == 1) then - i = j - end if his - his: if (j === 1) then ! { dg-error "Duplicate construct label" } - print *, j - end if his ! { dg-error "Expecting END PROGRAM" } - - sgk: select case (i) - case (1) - sgk: select case (j) ! { dg-error "Duplicate construct label" } - case (10) - i = i + j - case (20) - j = j + i - end select sgk - case (2) ! { dg-error "Unexpected CASE statement" } - i = i + 1 - j = j + 1 - end select sgk ! { dg-error "Expecting END PROGRAM" } - - apl: select case (i) - case (1) - k = 2 - case (2) - j = 1 - end select apl - apl: select case (i) ! { dg-error "Duplicate construct label" } - case (1) ! { dg-error "Unexpected CASE statement" } - j = 2 - case (2) ! { dg-error "Unexpected CASE statement" } - k = 1 - end select apl ! { dg-error "Expecting END PROGRAM" } - -end program dups |