[fortran] Tighten nested_module_2.f90 testcase

Submitted by Janne Blomqvist on Dec. 12, 2011, 7:40 p.m.

Details

Message ID CAO9iq9FFtySxbowCxTN38mL7CTeNuyf9YpXzZFR_auYtnPYEVQ@mail.gmail.com
State New
Headers show

Commit Message

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 hide | download patch | download mbox

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