From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-336009-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 29692 invoked by alias); 6 Nov 2010 15:30:46 -0000
Received: (qmail 29675 invoked by uid 22791); 6 Nov 2010 15:30:43 -0000
X-SWARE-Spam-Status: No, hits=-2.8 required=5.0	tests=ALL_TRUSTED,AWL,BAYES_00
X-Spam-Check-By: sourceware.org
Received: from localhost (HELO gcc.gnu.org) (127.0.0.1)    by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sat, 06 Nov 2010 15:30:40 +0000
From: "jvdelisle at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/46331] New: Compilation time long with simple function in array constructor
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Keywords:
X-Bugzilla-Severity: normal
X-Bugzilla-Who: jvdelisle at gcc dot gnu.org
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Changed-Fields:
Message-ID: <bug-46331-4@http.gcc.gnu.org/bugzilla/>
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
Content-Type: text/plain; charset="UTF-8"
MIME-Version: 1.0
Date: Sat, 06 Nov 2010 15:30:00 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2010-11/txt/msg00742.txt.bz2

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46331

           Summary: Compilation time long with simple function in array
                    constructor
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: jvdelisle@gcc.gnu.org


program foo
    implicit none

    Integer :: i
    Integer, Parameter :: N = 10**4
    Real, Dimension(N) :: xs

    ! Random points
    xs = (/ (rand(0), i=1,N) /)
    print *, xs
end program

The time spent in the FE is not bad, but the resulting translation is horrible
and it wreaks havoc with the middle end and down the road.

I think we should not expand this constructor at all, especially since 'i' is
not used in the function expression. However, rand(0) needs to be called once
for each element.  That means it needs to be translated into:

do i-1,N
  xs = rand(0)
end do

In otherwords, I think another special case in gfc_trans_assignment.  There are
other special cases already there.