Fetch FGSL (0.7) from
http://www.lrz-muenchen.de/services/software/mathematik/gsl/fortran/

Run ./configure --f90 gfortran && make
This should compile the library successfully.

Run now the following test case; result:

test.f90:39: internal compiler error: Segmentation fault
==2416== Invalid read of size 8
==2416==    at 0x49F45A: gfc_conv_initializer (trans-expr.c:2832)
==2416==    by 0x49F271: gfc_conv_structure (trans-expr.c:3194)
==2416==    by 0x49F4DE: gfc_conv_initializer (trans-expr.c:2854)

module tmod
  use fgsl
  implicit none
contains
  subroutine expb_df() bind(c)
    type(fgsl_vector) :: f_x
    real(fgsl_double), pointer :: p_x(:)
    integer :: status
    status = fgsl_vector_align(p_x, f_x)
  end subroutine expb_df
end module tmod


-- 
           Summary: ICE (segfault)
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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

Reply via email to