2010-07-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / array_constructor_22.f90

diff --git a/gcc/testsuite/gfortran.dg/array_constructor_22.f90 b/gcc/testsuite/gfortran.dg/array_constructor_22.f90
index d29039a..0dcdaea 100644 (file)
--- a/gcc/testsuite/gfortran.dg/array_constructor_22.f90
+++ b/gcc/testsuite/gfortran.dg/array_constructor_22.f90
@@ -7,7 +7,7 @@ module test
       function my_string(x) 
          integer i 
          real, intent(in) :: x(:) 
-         character(0) h4(1:minval([(1,i=1,0)],1)) 
+         character(0) h4(1:minval([(1,i=1,0)],1)) ! { dg-warning "will be executed zero times" }
          character(0) sv1(size(x,1):size(h4)) 
          character(0) sv2(2*lbound(sv1,1):size(h4)) 
          character(lbound(sv2,1)-3) my_string