From b5a31c9b43237577337b3ab4f27f9f43c4316ec6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Thu, 12 Apr 2007 21:12:20 +0200 Subject: [PATCH] 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 --- gcc/testsuite/gfortran.dg/repeat_2.f90 | 4 ++-- 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 d38718a20a0..bcb70e2131c 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 de74d4e85e9..64d213a147f 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 -- 2.30.2