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 a0d5761..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
@@ -26,7 +25,7 @@
   if (any (z .ne. (/11., 12./))) call abort ()\r
   if (any (r .ne. (/1., 2., 6., 7., 11., 12./))) call abort ()\r
   if (any (s .ne. (/11., 7., 3., 16., 12., 8., 4., &\r
-                   11., 7.,     16., 12., 8. /))) call abort ()\r
+                    11., 7.,     16., 12., 8. /))) call abort ()\r
 \r
   if (any (t .ne. (/11., 12., 8., 6., 11., 12., 27., 15. /))) call abort ()\r
 \r