public inbox for gcc-patches@gcc.gnu.org
 help / color / mirror / Atom feed
From: Jakub Jelinek <jakub@redhat.com>
To: Thomas Schwinge <thomas@codesourcery.com>
Cc: fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org,
	       Tobias Burnus <burnus@net-b.de>,
	       Cesar Philippidis <cesar@codesourcery.com>
Subject: Re: Implementing OpenACC's Fortran module
Date: Tue, 23 May 2017 11:17:00 -0000	[thread overview]
Message-ID: <20170523111200.GS8499@tucnak> (raw)
In-Reply-To: <8760gszziq.fsf@hertz.schwinge.homeip.net>

On Mon, May 22, 2017 at 05:23:25PM +0200, Thomas Schwinge wrote:
> --- libgomp/openacc_lib.h
> +++ libgomp/openacc_lib.h
> @@ -191,23 +191,9 @@
>        end interface
>  
>        interface acc_pcopyin
> -        subroutine acc_pcopyin_32_h (a, len)
> -          use iso_c_binding, only: c_int32_t
> -          !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
> -          type (*), dimension (*) :: a
> -          integer (c_int32_t) len
> -        end subroutine
> -
> -        subroutine acc_pcopyin_64_h (a, len)
> -          use iso_c_binding, only: c_int64_t
> -          !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
> -          type (*), dimension (*) :: a
> -          integer (c_int64_t) len
> -        end subroutine
> -
> -        subroutine acc_pcopyin_array_h (a)
> -          type (*), dimension (..), contiguous :: a
> -          end subroutine
> +        procedure :: acc_present_or_copyin_32_h
> +        procedure :: acc_present_or_copyin_64_h
> +        procedure :: acc_present_or_copyin_array_h
>        end interface

My Fortran knowledge is limited, does this actually provide
the interfaces of those procedures (what arguments they have
and other their properties), or shall it instead use
subroutine acc_present_or_copyin_32_h (a, len)
  ...
end subroutine
etc. there?

	Jakub

  reply	other threads:[~2017-05-23 11:12 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <20140818093652.GA12023@physik.fu-berlin.de>
     [not found] ` <53F1F025.8080102@codesourcery.com>
     [not found]   ` <20140818135104.GA8943@physik.fu-berlin.de>
     [not found]     ` <53F29628.401@codesourcery.com>
     [not found]       ` <53F3A8FC.9030105@net-b.de>
     [not found]         ` <53F3B4DB.90506@codesourcery.com>
     [not found]           ` <87siiwyznl.fsf@schwinge.name>
     [not found]             ` <87zifk2oda.fsf@hertz.schwinge.homeip.net>
2017-05-22 15:38               ` Thomas Schwinge
2017-05-23 11:17                 ` Jakub Jelinek [this message]
2017-05-24 11:38                   ` Thomas Schwinge
2017-05-24 12:00                     ` Jakub Jelinek
2017-05-24 13:48                       ` Thomas Schwinge

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20170523111200.GS8499@tucnak \
    --to=jakub@redhat.com \
    --cc=burnus@net-b.de \
    --cc=cesar@codesourcery.com \
    --cc=fortran@gcc.gnu.org \
    --cc=gcc-patches@gcc.gnu.org \
    --cc=thomas@codesourcery.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).