Patchwork [fortran] Tighten nested_module_2.f90 testcase

login
register
mail settings
Submitter Janne Blomqvist
Date Dec. 12, 2011, 7:40 p.m.
Message ID <CAO9iq9FFtySxbowCxTN38mL7CTeNuyf9YpXzZFR_auYtnPYEVQ@mail.gmail.com>
Download mbox | patch
Permalink /patch/130807/
State New
Headers show

Comments

Janne Blomqvist - Dec. 12, 2011, 7:40 p.m.
Hi,

committed as obvious.


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

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

Patch

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" } }