From patchwork Mon Dec 12 19:40:58 2011
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
X-Patchwork-Submitter: Janne Blomqvist <blomqvist.janne@gmail.com>
X-Patchwork-Id: 130807
Return-Path: 
 <gcc-patches-return-309735-incoming=patchwork.ozlabs.org@gcc.gnu.org>
X-Original-To: incoming@patchwork.ozlabs.org
Delivered-To: patchwork-incoming@bilbo.ozlabs.org
Received: from sourceware.org (server1.sourceware.org [209.132.180.131])
	by ozlabs.org (Postfix) with SMTP id C986F1007D6
	for <incoming@patchwork.ozlabs.org>;
	Tue, 13 Dec 2011 06:41:18 +1100 (EST)
Received: (qmail 15427 invoked by alias); 12 Dec 2011 19:41:15 -0000
Received: (qmail 15410 invoked by uid 22791); 12 Dec 2011 19:41:14 -0000
X-SWARE-Spam-Status: No, hits=-2.4 required=5.0	tests=AWL, BAYES_00,
	DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM,
	RCVD_IN_DNSWL_LOW
X-Spam-Check-By: sourceware.org
Received: from mail-lpp01m010-f47.google.com (HELO
	mail-lpp01m010-f47.google.com) (209.85.215.47) by
	sourceware.org (qpsmtpd/0.43rc1) with ESMTP;
	Mon, 12 Dec 2011 19:41:00 +0000
Received: by lami14 with SMTP id i14so84686lam.20 for <multiple recipients>;
	Mon, 12 Dec 2011 11:40:58 -0800 (PST)
MIME-Version: 1.0
Received: by 10.152.130.232 with SMTP id oh8mr2285881lab.6.1323718858848;
	Mon, 12 Dec 2011 11:40:58 -0800 (PST)
Received: by 10.152.21.2 with HTTP; Mon, 12 Dec 2011 11:40:58 -0800 (PST)
Date: Mon, 12 Dec 2011 21:40:58 +0200
Message-ID: 
 <CAO9iq9FFtySxbowCxTN38mL7CTeNuyf9YpXzZFR_auYtnPYEVQ@mail.gmail.com>
Subject: [Patch, fortran] Tighten nested_module_2.f90 testcase
From: Janne Blomqvist <blomqvist.janne@gmail.com>
To: Fortran List <fortran@gcc.gnu.org>, GCC Patches <gcc-patches@gcc.gnu.org>
Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-patches.gcc.gnu.org>
List-Unsubscribe: 
 <mailto:gcc-patches-unsubscribe-incoming=patchwork.ozlabs.org@gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-patches/>
List-Post: <mailto:gcc-patches@gcc.gnu.org>
List-Help: <mailto:gcc-patches-help@gcc.gnu.org>
Sender: gcc-patches-owner@gcc.gnu.org
Delivered-To: mailing list gcc-patches@gcc.gnu.org

Hi,

committed as obvious.


2011-12-12  Janne Blomqvist  <jb@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" } }