This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: Re: segfault with gfortran > 4.0.3

Hello John,

It shouldn't be too difficult.  Put all the code from the
tarball into one file, check the segfault still occurs, then
start chopping out BLOCK IF and DO LOOPs until the Segfault
goes away.  Restore the minimum code to again cause the Segfault,
and start chopping out peripherial code (whole subroutines and
functions).  You'll probably reduce the 3000+ lines of code down
to a very generic 10 to 20 of lines of code.  At this point,
there is no legal issue.

The following code reproduces the problem:

subroutine bar(s, n)
  integer n
  character s*(n)
  character*3, dimension(:), pointer :: m
contains
  subroutine gee
     m(1) = s(1:3)
  end subroutine gee
end subroutine bar

I think it's short enough to be legally OK.

FX

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]