From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-250414-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 15740 invoked by alias); 20 Apr 2008 21:20:21 -0000
Received: (qmail 15223 invoked by uid 48); 20 Apr 2008 21:19:39 -0000
Date: Sun, 20 Apr 2008 21:20:00 -0000
Message-ID: <20080420211939.15222.qmail@sourceware.org>
X-Bugzilla-Reason: CC
References: <bug-35971-10259@http.gcc.gnu.org/bugzilla/>
Subject: [Bug fortran/35971] ICE on valid code
In-Reply-To: <bug-35971-10259@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "tkoenig at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
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: 2008-04/txt/msg01445.txt.bz2



------- Comment #1 from tkoenig at gcc dot gnu dot org  2008-04-20 21:19 -------
Confirmed.

Reduced testcase:

module other_fun
   use ISO_C_BINDING
   implicit none
   private
! Message to be returned by procedure pointed to
! by the C_FUNPTR
   character, allocatable, save :: my_message(:)
! Interface block for the procedure pointed to
! by the C_FUNPTR
   public abstract_fun
   abstract interface
      function abstract_fun(x)
         use ISO_C_BINDING
         import my_message
         implicit none
         integer(C_INT) x(:)
         character(size(my_message),C_CHAR) abstract_fun(size(x))
      end function abstract_fun
   end interface
   contains

! Intermediate procedure to pass the function and get
! back the C_FUNPTR
      function get_funloc(x,y)
         procedure(abstract_fun) x
         type(C_FUNPTR) y
         external y
         type(C_FUNPTR) get_funloc

         get_funloc = y(x)
      end function get_funloc
end module other_fun


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2008-04-20 21:19:39
               date|                            |


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