Commit bits missing from previous checkin

* gfortran.dg/repeat_2.f90: Add dg-warning annotations.
* gfortran.dg/repeat_4.f90: Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123765 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gfortran.dg/repeat_2.f90 b/gcc/testsuite/gfortran.dg/repeat_2.f90
index d38718a..bcb70e2 100644 (file)
--- 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 (file)
--- 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