[Bug fortran/29899] [Segfault] Fortran entry point caught from C function

[burnus at gcc dot gnu dot org]

------- 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@<end-of-statement>


-- 


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