From 1d84354610a773b0a2a844136a162f383d045402 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Mon, 12 Dec 2011 21:36:39 +0200 Subject: [PATCH] gfortran.dg/nested_modules_2.f90: Tighten test. 2011-12-12 Janne Blomqvist * gfortran.dg/nested_modules_2.f90: Tighten test. From-SVN: r182258 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/nested_modules_2.f90 | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dbe8ac619f5a..f8f92aa417ad 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2011-12-12 Janne Blomqvist + + * gfortran.dg/nested_modules_2.f90: Tighten test. + 2011-12-12 Eric Botcazou * gcc.c-torture/execute/20111212-1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/nested_modules_2.f90 b/gcc/testsuite/gfortran.dg/nested_modules_2.f90 index 5bfdaddaac2b..0714eedee6ad 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" } } -- 2.47.2