------- 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
