diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2007-04-12 21:12:20 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2007-04-12 21:12:20 +0200 |
| commit | b5a31c9b43237577337b3ab4f27f9f43c4316ec6 (patch) | |
| tree | 3c6a88b6256372e8ddb6d4ce670e643dcf68f671 /gcc | |
| parent | 4557bf49fac7b10c06ecfa164c95d4a17c3722fa (diff) | |
| download | gcc-b5a31c9b43237577337b3ab4f27f9f43c4316ec6.zip gcc-b5a31c9b43237577337b3ab4f27f9f43c4316ec6.tar.gz gcc-b5a31c9b43237577337b3ab4f27f9f43c4316ec6.tar.bz2 | |
Commit bits missing from previous checkin
Commit bits missing from previous checkin
* gfortran.dg/repeat_2.f90: Add dg-warning annotations.
* gfortran.dg/repeat_4.f90: Likewise.
From-SVN: r123765
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/repeat_2.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/repeat_4.f90 | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/repeat_2.f90 b/gcc/testsuite/gfortran.dg/repeat_2.f90 index d38718a..bcb70e2 100644 --- a/gcc/testsuite/gfortran.dg/repeat_2.f90 +++ b/gcc/testsuite/gfortran.dg/repeat_2.f90 @@ -22,10 +22,10 @@ end subroutine bar program test implicit none - character(len=0), parameter :: s0 = "" + character(len=0), parameter :: s0 = "" ! { dg-warning "zero length" } character(len=1), parameter :: s1 = "a" character(len=2), parameter :: s2 = "ab" - character(len=0) :: t0 + character(len=0) :: t0 ! { dg-warning "CHARACTER variable has zero length" } character(len=1) :: t1 character(len=2) :: t2 integer :: i diff --git a/gcc/testsuite/gfortran.dg/repeat_4.f90 b/gcc/testsuite/gfortran.dg/repeat_4.f90 index de74d4e..64d213a 100644 --- a/gcc/testsuite/gfortran.dg/repeat_4.f90 +++ b/gcc/testsuite/gfortran.dg/repeat_4.f90 @@ -3,10 +3,10 @@ ! { dg-do compile } program test implicit none - character(len=0), parameter :: s0 = "" + character(len=0), parameter :: s0 = "" ! { dg-warning "zero length" } character(len=1), parameter :: s1 = "a" character(len=2), parameter :: s2 = "ab" - character(len=0) :: t0 + character(len=0) :: t0 ! { dg-warning "CHARACTER variable has zero length" } character(len=1) :: t1 character(len=2) :: t2 |