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
