From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 982 invoked by alias); 2 Apr 2007 22:28:43 -0000 Received: (qmail 959 invoked by uid 48); 2 Apr 2007 22:28:34 -0000 Date: Mon, 02 Apr 2007 22:28:00 -0000 Message-ID: <20070402222834.958.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/29899] [Segfault] Fortran entry point caught from C function In-Reply-To: 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: 2007-04/txt/msg00150.txt.bz2 ------- Comment #3 from burnus at gcc dot gnu dot org 2007-04-02 23:28 ------- > You can found the complete ranlux.f subroutine at > http://www.systella.fr/~bertrand/rpl2/download/rpl-4.00pre8q.tar.bz2 The program does not compile for me: gfortran ./src/fonctions_speciales.conv.f90 ./src/fonctions_speciales.conv.f90:62.48: type(GSL_SF_RESULT), intent(out) :: RESULTAT 1 Error: the type of 'resultat' at (1) has not been declared within the interface ./src/fonctions_speciales.conv.f90:59.59: integer function gsl_sf_lngamma_sgn_e_wrapper(X, RESULTAT, SIGNE) 1 Error: Symbol 'resultat' at (1) has no IMPLICIT type ./src/fonctions_speciales.conv.f90:67.47: ERREUR_GAMMA = gsl_sf_lngamma_sgn_e_wrapper(X, STRUCT_RESULTAT, & 1 Error: Type/rank mismatch in argument 'resultat' at (1) NSG f95: Error: ./src/fonctions_speciales.conv.f90, line 62: RESULTAT is of undefined derived type GSL_SF_RESULT detected at ::@RESULTAT Error: ./src/fonctions_speciales.conv.f90, line 64: Derived type GSL_SF_RESULT used but not defined detected at FUNCTION@ -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29899