From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 28503 invoked by alias); 22 Jan 2009 14:00:23 -0000 Received: (qmail 28448 invoked by uid 48); 22 Jan 2009 14:00:11 -0000 Date: Thu, 22 Jan 2009 14:00:00 -0000 Subject: [Bug fortran/38936] New: F2003: ASSOCIATE construct X-Bugzilla-Reason: CC Message-ID: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "burnus at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2009-01/txt/msg02389.txt.bz2 ASSOCIATE is a nice Fortran 2003 feature. I found the following at comp.lang.fortran and I want to make sure it gets tested when ASSOCIATE is implemented. Thus I opened this PR. http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/ebf1e5abedc91cdc Test case: implicit none integer :: x(5), y(5), a(5), i x = [13.0, 23.0, 27.0, 0.0, 37.0 ] y = [1.0, 3.0, 5.0, 7.0, 11.0 ] a = 0.0 ASSOCIATE (z => x + y) do i = 1, 5 a(i) = z(i)*3.0 end do END ASSOCIATE print *, a end Using ifort 11, the result is: 42 78 96 21 144 -- Summary: F2003: ASSOCIATE construct Product: gcc Version: 4.4.0 Status: UNCONFIRMED Severity: enhancement Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: burnus at gcc dot gnu dot org OtherBugsDependingO 20585 nThis: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38936