X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgfortran.dg%2Fnested_modules_2.f90;fp=gcc%2Ftestsuite%2Fgfortran.dg%2Fnested_modules_2.f90;h=0714eedee6ad127abfa9539fe5a162dc4e0d0cd2;hp=5bfdaddaac2b900b89345c5d8f990252c92b19a3;hb=d32a87895c72d7db2ec8f8bcf0b2f15719c97802;hpb=11b905642e58fea2a51054c5227a421ae1e8e743

diff --git a/gcc/testsuite/gfortran.dg/nested_modules_2.f90 b/gcc/testsuite/gfortran.dg/nested_modules_2.f90
index 5bfdaddaac2..0714eedee6a 100644
--- 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" } }