From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 26883 invoked by alias); 18 May 2009 12:28:18 -0000 Received: (qmail 26540 invoked by uid 48); 18 May 2009 12:28:07 -0000 Date: Mon, 18 May 2009 12:28:00 -0000 Message-ID: <20090518122807.26539.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40176] Fortran 2003: Procedure pointers with array return value In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "janus 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-05/txt/msg01518.txt.bz2 ------- Comment #2 from janus at gcc dot gnu dot org 2009-05-18 12:28 ------- This test case with 'dynamic' array size produces a gimplification error: PROGRAM test_prog ABSTRACT INTERFACE FUNCTION fn_template(n,x) RESULT(y) INTEGER, INTENT(in) :: n REAL, INTENT(in) :: x(n) REAL :: y(n) END FUNCTION fn_template END INTERFACE TYPE ProcPointerArray PROCEDURE(fn_template), POINTER, NOPASS :: f END TYPE ProcPointerArray TYPE (ProcPointerArray) :: f_array(1) PROCEDURE(fn_template), POINTER :: f REAL :: tre(2) f_array(1)%f => triple ! gimplification error f => f_array(1)%f tre = f(2,[2.,4.]) PRINT*, tre CONTAINS FUNCTION triple(n,x) RESULT(tre) INTEGER, INTENT(in) :: n REAL, INTENT(in) :: x(n) REAL :: tre(n) tre = 3.*x END FUNCTION triple END PROGRAM test_prog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40176