* obj-c++.dg/comp-types-10.mm: XFAIL for ICE.

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

diff --git a/gcc/testsuite/gfortran.dg/spread_shape_1.f90 b/gcc/testsuite/gfortran.dg/spread_shape_1.f90
index bbef232..650584e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/spread_shape_1.f90
+++ b/gcc/testsuite/gfortran.dg/spread_shape_1.f90
@@ -4,8 +4,10 @@
 !
 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   real,dimension(:, :),pointer :: ptr
-  real,dimension(2, 2),parameter :: u = & ! { dg-warning "nonstandard" }
-       reshape((/0.25, 0.5, 0.75, 1.00/),(/2,2/))
+  real,dimension(2, 2) :: u
+
+  u = reshape((/0.25, 0.5, 0.75, 1.00/),(/2,2/))
+  
   allocate (ptr(2,2))
 
 ! Original PR