From patchwork Tue Jul 27 10:32:06 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Uros Bizjak X-Patchwork-Id: 59992 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 2FA0BB6EF1 for ; Tue, 27 Jul 2010 20:32:14 +1000 (EST) Received: (qmail 22949 invoked by alias); 27 Jul 2010 10:32:13 -0000 Received: (qmail 22941 invoked by uid 22791); 27 Jul 2010 10:32:12 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, RCVD_IN_DNSWL_NONE, TW_ZJ, 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; Tue, 27 Jul 2010 10:32:08 +0000 Received: by yxi11 with SMTP id 11so472835yxi.20 for ; Tue, 27 Jul 2010 03:32:06 -0700 (PDT) MIME-Version: 1.0 Received: by 10.150.217.11 with SMTP id p11mr2447822ybg.354.1280226726696; Tue, 27 Jul 2010 03:32:06 -0700 (PDT) Received: by 10.151.141.15 with HTTP; Tue, 27 Jul 2010 03:32:06 -0700 (PDT) Date: Tue, 27 Jul 2010 12:32:06 +0200 Message-ID: Subject: [PATCH, testsuite]: Fix char4_iunit_1.f03 on alpha, sh and spu From: Uros Bizjak To: gcc-patches@gcc.gnu.org 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 Hello! This test needs ieee options on alpha and sh, and should be disabled on spu due to use of NaNs. 2010-07-27 Uros Bizjak * gfortran.dg/char4_iunit_1.f03: Add ieee options. Skip on spu-*-* targets. Tested on alphaev68-pc-linux-gnu, committed to mainline SVN. Uros. Index: gfortran.dg/char4_iunit_1.f03 =================================================================== --- gfortran.dg/char4_iunit_1.f03 (revision 162556) +++ gfortran.dg/char4_iunit_1.f03 (working copy) @@ -1,4 +1,6 @@ ! { dg-do run } +! { dg-add-options ieee } +! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } } ! PR37077 Implement Internal Unit I/O for character KIND=4 ! Test case prepared by Jerry DeLisle program char4_iunit_1