From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 6245 invoked by alias); 10 Jun 2010 20:36:16 -0000 Received: (qmail 6232 invoked by uid 22791); 10 Jun 2010 20:36:16 -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 X-Spam-Check-By: sourceware.org Received: from mail-wy0-f175.google.com (HELO mail-wy0-f175.google.com) (74.125.82.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 10 Jun 2010 20:36:12 +0000 Received: by wyi11 with SMTP id 11so284343wyi.20 for ; Thu, 10 Jun 2010 13:36:09 -0700 (PDT) Received: by 10.227.146.3 with SMTP id f3mr759364wbv.211.1276202169328; Thu, 10 Jun 2010 13:36:09 -0700 (PDT) Received: from [192.168.0.5] (chufi.coudert.name [88.162.139.106]) by mx.google.com with ESMTPS id u36sm2722722wbv.12.2010.06.10.13.36.08 (version=TLSv1/SSLv3 cipher=RC4-MD5); Thu, 10 Jun 2010 13:36:08 -0700 (PDT) From: FX Content-Type: multipart/mixed; boundary=Apple-Mail-64--605260416 Subject: [libgomp,patch] Add omp_{integer,logical}_kind to omp_lib.h Date: Thu, 10 Jun 2010 21:48:00 -0000 Message-Id: Cc: Fortran List To: rth@redhat.com, gcc-patches@gcc.gnu.org, Jakub Jelinek Mime-Version: 1.0 (Apple Message framework v1078) Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2010-06/txt/msg01147.txt.bz2 --Apple-Mail-64--605260416 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii Content-length: 406 PR 42041 is about definitions for omp_integer_kind and omp_logical_kind mis= sing from omp_lib.h (even though they're in omp_lib.f90). This is strictly = conforming to OpenMP 3.0 standard, but it was a bug in the standard, due to= be fixed by 3.1. In the process of cleaning some low-hanging bugs in the bugzilla, I propose= this patch. Built and regtested on x86_64-linux, OK to commit to trunk? FX --Apple-Mail-64--605260416 Content-Disposition: attachment; filename=libgomp.diff Content-Type: application/octet-stream; name="libgomp.diff" Content-Transfer-Encoding: 7bit Content-length: 1724 Index: omp_lib.h.in =================================================================== --- omp_lib.h.in (revision 160470) +++ omp_lib.h.in (working copy) @@ -22,9 +22,12 @@ ! see the files COPYING3 and COPYING.RUNTIME respectively. If not, see ! . + integer omp_integer_kind, omp_logical_kind integer omp_lock_kind, omp_nest_lock_kind, openmp_version integer omp_sched_kind, omp_sched_static, omp_sched_dynamic integer omp_sched_guided, omp_sched_auto + parameter (omp_integer_kind = 4) + parameter (omp_logical_kind = 4) parameter (omp_lock_kind = @OMP_LOCK_KIND@) parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) parameter (omp_sched_kind = 4) @@ -42,16 +45,16 @@ external omp_set_num_threads external omp_get_dynamic, omp_get_nested - logical(4) omp_get_dynamic, omp_get_nested + logical(omp_logical_kind) omp_get_dynamic, omp_get_nested external omp_test_lock, omp_in_parallel - logical(4) omp_test_lock, omp_in_parallel + logical(omp_logical_kind) omp_test_lock, omp_in_parallel external omp_get_max_threads, omp_get_num_procs - integer(4) omp_get_max_threads, omp_get_num_procs + integer(omp_integer_kind) omp_get_max_threads, omp_get_num_procs external omp_get_num_threads, omp_get_thread_num - integer(4) omp_get_num_threads, omp_get_thread_num + integer(omp_integer_kind) omp_get_num_threads, omp_get_thread_num external omp_test_nest_lock - integer(4) omp_test_nest_lock + integer(omp_integer_kind) omp_test_nest_lock external omp_get_wtick, omp_get_wtime double precision omp_get_wtick, omp_get_wtime --Apple-Mail-64--605260416 Content-Disposition: attachment; filename=libgomp.ChangeLog Content-Type: application/octet-stream; name="libgomp.ChangeLog" Content-Transfer-Encoding: 7bit Content-length: 205 2010-06-10 Francois-Xavier Coudert PR fortran/42041 * omp_lib.h.in: Add definitions of omp_integer_kind and omp_logical_kind, and use them in external function declarations. --Apple-Mail-64--605260416--