From owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org Tue Sep 26 23:42:03 2017 Return-Path: X-Original-To: sc22wg5-dom8 Delivered-To: sc22wg5-dom8@www.open-std.org Received: by www.open-std.org (Postfix, from userid 521) id 8D76D3587F5; Tue, 26 Sep 2017 23:42:03 +0200 (CEST) Delivered-To: sc22wg5@open-std.org Received: from mail-pf0-f179.google.com (mail-pf0-f179.google.com [209.85.192.179]) (using TLSv1 with cipher AES128-SHA (128/128 bits)) (No client certificate requested) by www.open-std.org (Postfix) with ESMTP id 95BB2358676 for ; Tue, 26 Sep 2017 23:42:02 +0200 (CEST) Received: by mail-pf0-f179.google.com with SMTP id r68so6181431pfj.3 for ; Tue, 26 Sep 2017 14:42:02 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceryinstitute.org; s=google; h=date:from:to:cc:message-id:in-reply-to:references:subject :mime-version; bh=8DbyMy1+XgWJVftlVCguPbAeyyKcnu5NckHxx/duKJ4=; b=d9tSxMO34ncLdSAduguJPd6CwVDK0YesfnC5Yw/A8bRUlLy1yJHGg+nJuF9E4sc1Zo PQfLC7chStIVZn4939zfFOF8a97xlj6iCVgnMpjaZ92o4nS4lv61IcUNkWczOqIOI/v7 73aG4LuK6EfnZRDWT2mcor5QE7c3Q3Zgh7FwjZgALVHgfuJgbgLVzyOJodoh27jsH4vR qji1p3o96eQKiGZE7NPgwKzShlkadz9Y4Wulevh16BN/8p+49s4khhZRUiNami3TBztC MaX8y6TEUFkLzdqNRPl7gFOj8x5xxU+bs4W20NEA7qnNu93qLFCDaCg9mKOHoKzsgCcx 46lg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:date:from:to:cc:message-id:in-reply-to :references:subject:mime-version; bh=8DbyMy1+XgWJVftlVCguPbAeyyKcnu5NckHxx/duKJ4=; b=Lnin1dHG23goNEAEkIkJczUr+Q0oMJaIBpI+e+yeIc9FYYtzHZT6AuYKAhHx/zvNRh bDfYeaZff8a71vq1UrPrgvMDGvZTZx4aLqiFtfpz2kHTm8IkwJEtrO0fvMjCoq2CBY+7 YQXSKeFYGk/9hlte8gE3fyBAMXylsg6KHkISQJx7e0hdCWw4uiL/eR1w+W6kz2sY91XD yKKkJEXG6qTceSgJAt0bi3pNtEIeEMouBqyZP9MpePRCj6ww6CAwL7GZ01DoCcv8Rl2I 3AVEFpOMg1GopeATgkELvZZP0zRDWanogqB3lmBDgHqRbOX8/1UFGrqW6GbestIklpfo fLCA== X-Gm-Message-State: AHPjjUi3DVBVEFVMp2LWIYAwhp4VZJrj+Fy/8IRjlfG/20DehE5Wh0yq uQvptlf48nBhlatQKrgW7HpF/Q== X-Google-Smtp-Source: AOwi7QAaIRp/XwartyA3F7O2nsUkCpEtvAUOCEUmgA38oMRxHyQcBJagYdWUyJyTdqP9XnkdQkZcSw== X-Received: by 10.84.240.196 with SMTP id l4mr11692268plt.261.1506462120908; Tue, 26 Sep 2017 14:42:00 -0700 (PDT) Received: from localhost.mail ([50.233.164.226]) by smtp.gmail.com with ESMTPSA id l131sm18372563pga.24.2017.09.26.14.41.59 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Tue, 26 Sep 2017 14:41:59 -0700 (PDT) Date: Tue, 26 Sep 2017 14:41:58 -0700 From: Damian Rouson To: Bill Long , fortran standards email list for J3 Cc: WG5 Message-ID: In-Reply-To: <20170926212625.B452F3587DC@www.open-std.org> References: <20170926174021.A8F283587DC@www.open-std.org> <20170926212625.B452F3587DC@www.open-std.org> Subject: Re: (j3.2006) (SC22WG5.5958) generic programming in F2020 X-Mailer: Airmail (442) MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="59cac9a6_5851525b_b1c" Sender: owner-sc22wg5@open-std.org Precedence: bulk --59cac9a6_5851525b_b1c Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline On September 26, 2017 at 2:26:29 PM, Bill Long (longb=40cray.com) wrote: Hi WG5/J3, Attached is a short write-up of a simpler version for templates that=E2=80= =99s been informally discussed for a while. Is it appropriate to comment on this write-up now or should discussion wa= it until the meeting=3F =C2=A0I have =C2=A0question about the following t= ext in the paper: =225) Template procedures have to be defined in a MODULE=E2=80=A6=E2=80=9D= Does =E2=80=9Cdefined=E2=80=9D include cases in which only an interface b= ody is provided in the MODULE such as below=3F =C2=A0If so, maybe the sta= tement should be that the procedure must be a module procedure. =C2=A0 =C2=A0 =C2=A0 =C2=A0Example : =C2=A0 module foo=5Fmod =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 contains =C2=A0 =C2=A0 template module function foo(x,y) result(w) =C2=A0 =C2=A0 =C2=A0 implicit none =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 real(*) :: x, y =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 type(same=5Fas(x)) :: w= =C2=A0 =C2=A0 end function foo =C2=A0end module foo=5Fmod =C2=A0 submodule(foo=5Fmod) foo=5Fmod=5Fdefinition =C2=A0 contains =C2=A0 =C2=A0 template module procedure foo =C2=A0 =C2=A0 =C2=A0 w =3D x*y =C2=A0=C2=A0=C2=A0end procedure foo =C2=A0 end submodule =C2=A0program test =C2=A0use foo=5Fmod =C2=A0real(8) :: a,b,c =C2=A0a =3D 3.14=5F8 =C2=A0b =3D 2.7=5F8 =C2=A0c =3D foo(a,b) =C2=A0print *, c =C2=A0end program test Damian --59cac9a6_5851525b_b1c Content-Type: text/html; charset="utf-8" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline