From patchwork Tue Jan 18 20:51:32 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Sebastian Pop X-Patchwork-Id: 79355 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 4D0CEB7118 for ; Wed, 19 Jan 2011 07:52:02 +1100 (EST) Received: (qmail 22762 invoked by alias); 18 Jan 2011 20:51:59 -0000 Received: (qmail 22749 invoked by uid 22791); 18 Jan 2011 20:51:59 -0000 X-SWARE-Spam-Status: No, hits=-2.3 required=5.0 tests=AWL, BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, T_TO_NO_BRKTS_FREEMAIL X-Spam-Check-By: sourceware.org Received: from mail-iy0-f175.google.com (HELO mail-iy0-f175.google.com) (209.85.210.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 18 Jan 2011 20:51:53 +0000 Received: by iyj18 with SMTP id 18so45913iyj.20 for ; Tue, 18 Jan 2011 12:51:51 -0800 (PST) Received: by 10.231.35.136 with SMTP id p8mr6698578ibd.139.1295383911438; Tue, 18 Jan 2011 12:51:51 -0800 (PST) Received: from napoca ([163.181.251.115]) by mx.google.com with ESMTPS id d21sm5271388ibg.9.2011.01.18.12.51.48 (version=TLSv1/SSLv3 cipher=RC4-MD5); Tue, 18 Jan 2011 12:51:50 -0800 (PST) Received: by napoca (sSMTP sendmail emulation); Tue, 18 Jan 2011 14:51:46 -0600 From: Sebastian Pop To: gcc-patches@gcc.gnu.org Cc: rguenther@suse.de, gcc-graphite@googlegroups.com, Sebastian Pop Subject: [PATCH 2/6] Add testcase for PR29832. Date: Tue, 18 Jan 2011 14:51:32 -0600 Message-Id: <1295383896-27122-3-git-send-email-sebpop@gmail.com> In-Reply-To: <1295383896-27122-1-git-send-email-sebpop@gmail.com> References: <1295383896-27122-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 2011-01-18 Sebastian Pop PR tree-optimization/29832 * gfortran.dg/graphite/pr29832.f90: New. --- gcc/ChangeLog.graphite | 5 ++++ gcc/testsuite/gfortran.dg/graphite/pr29832.f90 | 26 ++++++++++++++++++++++++ 2 files changed, 31 insertions(+), 0 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/graphite/pr29832.f90 diff --git a/gcc/ChangeLog.graphite b/gcc/ChangeLog.graphite index 8440b84..ee16496 100644 --- a/gcc/ChangeLog.graphite +++ b/gcc/ChangeLog.graphite @@ -1,5 +1,10 @@ 2011-01-18 Sebastian Pop + PR tree-optimization/29832 + * gfortran.dg/graphite/pr29832.f90: New. + +2011-01-18 Sebastian Pop + PR tree-optimization/43567 * gcc.dg/graphite/pr43567.c: New. diff --git a/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 b/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 new file mode 100644 index 0000000..ab222ab --- /dev/null +++ b/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 @@ -0,0 +1,26 @@ +! { dg-do run } +! { dg-options "-O2 -ftree-loop-linear" } + +! Program to test the scalarizer +program testarray + implicit none + integer, dimension (6, 5) :: a, b + integer n + + a = 0 + do n = 1, 5 + a(4, n) = n + end do + + b(:, 5:1:-1) = a + a(1:5, 2) = a(4, :) + 1 + + ! The following expression should cause loop reordering + a(:, 2:4) = a(:, 1:3) + + do n = 1, 5 + if (a(n, 3) .ne. (n + 1)) call abort + if (b(4, n) .ne. (6 - n)) call abort + end do +end program +