diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-06-20 19:20:10 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-06-20 19:20:10 +0000 |
| commit | e0757dda6639e74627db62ea10115261f28be012 (patch) | |
| tree | fd8f69959845b3d0c4aa72f01e0167357837bdb6 | |
| parent | cb1d4dce1537ed3479037e8d0f0bf114d5d27441 (diff) | |
| download | gcc-e0757dda6639e74627db62ea10115261f28be012.zip gcc-e0757dda6639e74627db62ea10115261f28be012.tar.gz gcc-e0757dda6639e74627db62ea10115261f28be012.tar.bz2 | |
* gfortran.dg/duplicate_labels.f90: New test.
From-SVN: r101215
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/duplicate_labels.f90 | 59 |
2 files changed, 63 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index baeae27..18935f5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-06-20 Steven G. Kargl <kargls@comcast.net> + + * gfortran.dg/duplicate_labels.f90: New test. + 2005-06-20 Jan Beulich <jbeulich@novell.com> * g++.old-deja/g++.jason/thunk2.C: On NetWare, also account for diff --git a/gcc/testsuite/gfortran.dg/duplicate_labels.f90 b/gcc/testsuite/gfortran.dg/duplicate_labels.f90 new file mode 100644 index 0000000..7523d0c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/duplicate_labels.f90 @@ -0,0 +1,59 @@ +! { 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 |