From owner-sc22wg5@open-std.org Sun Feb 7 20:32:42 2010 Return-Path: X-Original-To: sc22wg5-dom8 Delivered-To: sc22wg5-dom8@www2.open-std.org Received: by www2.open-std.org (Postfix, from userid 521) id 4682EC3BA0C; Sun, 7 Feb 2010 20:32:42 +0100 (CET) X-Original-To: sc22wg5@open-std.org Delivered-To: sc22wg5@open-std.org Received: from ppsw-6.csi.cam.ac.uk (ppsw-6.csi.cam.ac.uk [131.111.8.136]) by www2.open-std.org (Postfix) with ESMTP id B5984C3BA07 for ; Sun, 7 Feb 2010 20:32:40 +0100 (CET) X-Cam-AntiVirus: no malware found X-Cam-SpamDetails: not scanned X-Cam-ScannerInfo: http://www.cam.ac.uk/cs/email/scanner/ Received: from hermes-2.csi.cam.ac.uk ([131.111.8.54]:45087) by ppsw-6.csi.cam.ac.uk (smtp.hermes.cam.ac.uk [131.111.8.156]:25) with esmtpa (EXTERNAL:nmm1) id 1NeCs4-0003e0-KM (Exim 4.70) (return-path ); Sun, 07 Feb 2010 19:32:40 +0000 Received: from prayer by hermes-2.csi.cam.ac.uk (hermes.cam.ac.uk) with local (PRAYER:nmm1) id 1NeCs4-00031G-9f (Exim 4.67) (return-path ); Sun, 07 Feb 2010 19:32:40 +0000 Received: from [83.67.89.123] by webmail.hermes.cam.ac.uk with HTTP (Prayer-1.3.2); 07 Feb 2010 19:32:40 +0000 Date: 07 Feb 2010 19:32:40 +0000 From: "N.M. Maclaren" To: sc22wg5 Subject: Please say this isn't allowed! Message-ID: In-Reply-To: <20100206000326.EB642C3BA22@www2.open-std.org> References: <20100206000326.EB642C3BA22@www2.open-std.org> X-Mailer: Prayer v1.3.2 Mime-Version: 1.0 Content-Type: text/plain; format=flowed; charset=ISO-8859-1 Sender: owner-sc22wg5@open-std.org Precedence: bulk While writing a paper on C interoperability, I was checking on Fortran's equivalents to some C facilities, and I cannot find anything that forbids this. NAG objects to it, but Intel and Pathscale allow it - or, at least, let it happen .... PROGRAM Main REAL, POINTER, DIMENSION(:) :: p => NULL() REAL :: x = 1.0, y = 2.0, z = 3.0 CALL Fred ( (/ x,y,z /) ) PRINT *, p CONTAINS SUBROUTINE Fred (arg) REAL, TARGET, DIMENSION(:) :: arg p => arg END SUBROUTINE Fred END PROGRAM Main Regards, Nick Maclaren.