Merge remote-tracking branch 'gnu/gcc-4_7-branch' into rework

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

diff --git a/gcc/testsuite/gfortran.dg/nested_modules_2.f90 b/gcc/testsuite/gfortran.dg/nested_modules_2.f90
index 5bfdadd..0714eed 100644 (file)
--- a/gcc/testsuite/gfortran.dg/nested_modules_2.f90
+++ b/gcc/testsuite/gfortran.dg/nested_modules_2.f90
@@ -33,7 +33,7 @@ program testfoobar
   call sub1 (l)
   i = 1
   call sub2 (l)
-  if (all (l.ne.(/84,42,0/))) call abort ()
+  if (any (l.ne.(/84,42,0/))) call abort ()
 end program testfoobar
 
 ! { dg-final { cleanup-modules "foo bar foobar" } }