Index: gcc/gcc/testsuite/gfortran.dg/array_constructor_22.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/array_constructor_22.f90 b/gcc/gcc/testsuite/gfortran.dg/array_constructor_22.f90 |
index d29039a80e6a4362cf2d76ffc29b1c1854580be2..0dcdaea68c1a1aed01432ee6a27badf73ade8e1c 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/array_constructor_22.f90 |
+++ b/gcc/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 |