[Patch, fortran] Tighten nested_module_2.f90 testcase

[Janne Blomqvist]

Hi,

committed as obvious.


2011-12-12  Janne Blomqvist  <j...@gcc.gnu.org>

        * gfortran.dg/nested_modules_2.f90: Tighten test.


Index: gfortran.dg/nested_modules_2.f90
===================================================================
--- gfortran.dg/nested_modules_2.f90    (revision 182257)
+++ gfortran.dg/nested_modules_2.f90    (revision 182258)
@@ -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" } }


-- 
Janne Blomqvist