From patchwork Thu Sep 30 18:01:34 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Sebastian Pop X-Patchwork-Id: 66228 Return-Path: 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 5A5B3B70A3 for ; Fri, 1 Oct 2010 04:08:20 +1000 (EST) Received: (qmail 22242 invoked by alias); 30 Sep 2010 18:06:18 -0000 Received: (qmail 13599 invoked by uid 22791); 30 Sep 2010 18:04:08 -0000 X-SWARE-Spam-Status: No, hits=-1.9 required=5.0 tests=AWL, BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, RCVD_IN_DNSWL_NONE, TW_SV, T_TO_NO_BRKTS_FREEMAIL X-Spam-Check-By: sourceware.org Received: from mail-yx0-f175.google.com (HELO mail-yx0-f175.google.com) (209.85.213.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 30 Sep 2010 18:04:03 +0000 Received: by yxg6 with SMTP id 6so985621yxg.20 for ; Thu, 30 Sep 2010 11:04:01 -0700 (PDT) Received: by 10.220.121.146 with SMTP id h18mr1064566vcr.53.1285869841274; Thu, 30 Sep 2010 11:04:01 -0700 (PDT) Received: from napoca ([163.181.251.115]) by mx.google.com with ESMTPS id e31sm138529vbe.19.2010.09.30.11.03.59 (version=TLSv1/SSLv3 cipher=RC4-MD5); Thu, 30 Sep 2010 11:04:00 -0700 (PDT) Received: by napoca (sSMTP sendmail emulation); Thu, 30 Sep 2010 13:03:57 -0500 From: Sebastian Pop To: gcc-patches@gcc.gnu.org Cc: gcc-graphite@googlegroups.com Subject: [PATCH 42/44] Add testcase for PR45758. Date: Thu, 30 Sep 2010 13:01:34 -0500 Message-Id: <1285869696-10915-43-git-send-email-sebpop@gmail.com> In-Reply-To: <1285869696-10915-1-git-send-email-sebpop@gmail.com> References: <1285869696-10915-1-git-send-email-sebpop@gmail.com> X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org From: spop 2010-09-23 Sebastian Pop PR middle-end/45758 * gfortran.dg/graphite/pr45758.f90: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/graphite@164567 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog.graphite | 5 +++ gcc/testsuite/ChangeLog | 5 +++ gcc/testsuite/gfortran.dg/graphite/pr45758.f90 | 41 ++++++++++++++++++++++++ 3 files changed, 51 insertions(+), 0 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/graphite/pr45758.f90 diff --git a/gcc/ChangeLog.graphite b/gcc/ChangeLog.graphite index a3293ac..af6d053 100644 --- a/gcc/ChangeLog.graphite +++ b/gcc/ChangeLog.graphite @@ -1,5 +1,10 @@ 2010-09-23 Sebastian Pop + PR middle-end/45758 + * gfortran.dg/graphite/pr45758.f90: New. + +2010-09-23 Sebastian Pop + * graphite-scop-detection.c (is_scop_p): Free bblist. 2010-09-23 Sebastian Pop diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ca63051..f4a182f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2010-09-30 Sebastian Pop + PR middle-end/45758 + * gfortran.dg/graphite/pr45758.f90: New. + +2010-09-30 Sebastian Pop + PR middle-end/45230 * gcc.dg/graphite/id-pr45230.c: New. diff --git a/gcc/testsuite/gfortran.dg/graphite/pr45758.f90 b/gcc/testsuite/gfortran.dg/graphite/pr45758.f90 new file mode 100644 index 0000000..b0e0a3d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/graphite/pr45758.f90 @@ -0,0 +1,41 @@ +! { dg-options "-O3 -floop-block" } + +MODULE util + INTEGER, PARAMETER :: int_4=4 + INTERFACE sort + MODULE PROCEDURE sort_int_4v + END INTERFACE +CONTAINS + SUBROUTINE sort_int_4v ( arr, n, index ) + INTEGER(KIND=int_4), INTENT(INOUT) :: arr(1:n) + INTEGER, INTENT(OUT) :: INDEX(1:n) + DO i = 1, n + INDEX(i) = i + END DO +1 IF (ir-l