2007-12-08 Tobias Burnus <burnus@net-b.de>

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

diff --git a/gcc/testsuite/gfortran.dg/array_initializer_1.f90 b/gcc/testsuite/gfortran.dg/array_initializer_1.f90
index b1db9bf..3347758 100644 (file)
--- a/gcc/testsuite/gfortran.dg/array_initializer_1.f90
+++ b/gcc/testsuite/gfortran.dg/array_initializer_1.f90
@@ -12,8 +12,7 @@
   real, parameter :: z(2) = x(2:3, 3) + 1\r
   real, parameter :: r(6) = (/(x(i:i +1, i), i = 1,3)/)\r
   real, parameter :: s(12) = (/((x(i, i:j-1:-1), i = 3,4), j = 2,3)/)\r
-  real, parameter :: t(8) = (/(z, &\r
-        real (i)**3, y(i), i = 2, 3)/) ! { dg-warning "nonstandard" }\r
+  real, parameter :: t(8) = (/(z, real (i)**3, y(i), i = 2, 3)/)\r
 \r
   integer, parameter :: ii = 4\r
 \r