From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 5192 invoked by alias); 14 Apr 2016 09:22:48 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 5181 invoked by uid 89); 14 Apr 2016 09:22:47 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.6 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.2 spammy=3-5 X-HELO: mail-pf0-f174.google.com Received: from mail-pf0-f174.google.com (HELO mail-pf0-f174.google.com) (209.85.192.174) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES128-GCM-SHA256 encrypted) ESMTPS; Thu, 14 Apr 2016 09:22:37 +0000 Received: by mail-pf0-f174.google.com with SMTP id n1so44412844pfn.2 for ; Thu, 14 Apr 2016 02:22:37 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version:content-transfer-encoding; bh=fsdZzo9juoIaVdNwl2bnIuhiXGkL+oRiGL620/BAxrQ=; b=KhJ0eqN/zlIU8qjbS/FaTWIHR7eeLm6xQ0yQeUePWpfZpbfVMruBBb7t9IoARInm0Z 9J+YOkPXy/Xyhu6Xg3lyBc0u5Wwl1w/+oxkSsL+u8imPUgjSDMx5iswbdW0R5FPctOgZ Vb5TLIb3FMGPburR4sZRv5RF2CqYeTJIkJrPsxERp22b6LH3tKrnTeG2uytyvGvvPpvh m3MRUTIMMNwdZLXlHkbJ2EJ0io89B4nrwOUGiP8SqZYqfsObtSouG7IaO8L6YvzRjEoI SM/itLK6AbK2gqtfHpZ24rouHuiaOxmy///CsvmFPQLu7sjwekN8Ty3Q4NN+ngBw5Wia 2XbA== X-Gm-Message-State: AOPr4FUbmFTtiGVDuT6c67YKzj/YE9ekLTedONv7CTr+HRVCFRwZBM0CyAng6cRFhBY4+Q== X-Received: by 10.98.53.6 with SMTP id c6mr19381614pfa.57.1460625755712; Thu, 14 Apr 2016 02:22:35 -0700 (PDT) Received: from E107787-LIN (gcc1-power7.osuosl.org. [140.211.15.137]) by smtp.gmail.com with ESMTPSA id d2sm16502031pfd.80.2016.04.14.02.22.32 (version=TLS1_2 cipher=AES128-SHA bits=128/128); Thu, 14 Apr 2016 02:22:34 -0700 (PDT) From: Yao Qi To: Bernhard Heckel Cc: keiths@redhat.com, gdb-patches@sourceware.org Subject: Re: [PATCH] fortran: Testsuite, fix different type naming across compilers. References: <1460615844-12363-1-git-send-email-bernhard.heckel@intel.com> Date: Thu, 14 Apr 2016 09:22:00 -0000 In-Reply-To: <1460615844-12363-1-git-send-email-bernhard.heckel@intel.com> (Bernhard Heckel's message of "Thu, 14 Apr 2016 08:37:24 +0200") Message-ID: <868u0go88k.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-IsSubscribed: yes X-SW-Source: 2016-04/txt/msg00316.txt.bz2 Bernhard Heckel writes: > + > +if ![info exists int4] then { > + set int4 "(int4|integer\\(kind=3D4\\)|INTEGER\\(4\\))" > +} I'd like to define a processing for each type, and return the right thing according to the compiler info, like proc fortran_int { } { if {[test_compiler_info {gcc-4-1-*}]} { return "int4" } elseif {[test_compiler_info {gcc-4-[3-5]-*}]} { return "integer\\(kind=3D4\\)" } elseif { TEST_COMPILER_FOR_IFORT } { return "INTEGER\\(4\\)" } else { .... } } however, I don't know how to do TEST_COMPILER_FOR_IFORT. > \ No newline at end of file Add a newline. --=20 Yao (=E9=BD=90=E5=B0=A7)