Hi Steve, Many thanks for the heads up. I had seen similar problems with the the second testcase and I thought that I had fixed them. I will delete them from the tree and will do more work to fix the problem(s).
Cheers Paul On Sat, 12 Jan 2019 at 17:17, Steve Kargl <s...@troutmask.apl.washington.edu> wrote: > > On Sat, Jan 12, 2019 at 09:10:27AM -0800, Steve Kargl wrote: > > On Sat, Jan 12, 2019 at 03:28:02PM +0000, Paul Richard Thomas wrote: > > > Hi Thomas, > > > > > > Committed as revision 267881. I removed the duplicate include file and > > > added some documentation, as suggested. > > > > > > Many thanks for all the help > > > > > > > Paul, > > > > I'm seeing the following failures. Note, I have my uncommitted > > ENTRY patch in my tree. I won't be able to investigate for about > > 30 minutes. > > > > FAIL: gfortran.dg/ISO_Fortran_binding_2.f90 -O0 execution test > > Running /safe/sgk/gcc/gccx/gcc/testsuite/gfortran.dg/debug/debug.exp ... > > Running /safe/sgk/gcc/gccx/gcc/testsuite/gfortran.dg/dg.exp ... > > FAIL: gfortran.dg/ISO_Fortran_binding_2.f90 -O2 execution test > > FAIL: gfortran.dg/ISO_Fortran_binding_2.f90 -O3 -fomit-frame-pointer > > -funroll-loops -fpeel-loops -ftracer -finline-functions execution test > > FAIL: gfortran.dg/ISO_Fortran_binding_2.f90 -O3 -g execution test > > > > Regression testing finished faster than I thought. Doing > > % gmake check-fortran RUNTESTFLAGS="dg.exp=ISO_Fortran_binding_2.f90" > ... > === gfortran Summary === > > # of expected passes 8 > # of unexpected failures 4 > > The first failure in the gfortran.log file is > > CFI_address: subscripts[0], is out of bounds. dv->dim[0].extent = 3 > subscripts[0] = 3. > CFI_address: subscripts[0], is out of bounds. dv->dim[0].extent = 3 > subscripts[0] = -1. > CFI_address: base address of C Descriptor must not be NULL. > CFI_deallocate: Base address is already NULL. > CFI_deallocate: C Descriptor must describe a pointer or allocatable object. > CFI_allocate: Base address of C descriptor must be NULL. > CFI_allocate: The object of the C descriptor must be a pointer or allocatable > variable. > CFI_establish: Rank must be between 0 and 15, 0 < rank (0 !< 16). > CFI_establish: If the C Descriptor represents an allocatable variable > (dv->attribute = 1), its base address must be NULL (dv->base_addr = NULL). > CFI_establish: If base address is not NULL (base_addr != NULL), the > established C descriptor is for a nonallocatable entity (attribute != 1). > CFI_is_contiguous: Base address of C Descriptor is already NULL. > CFI_is_contiguous: C Descriptor must describe an array (0 < dv->rank = 0). > CFI_section: Base address of source must not be NULL. > CFI_section: Source must describe an array (0 < source->rank, 0 !< 0). > CFI_section: Rank of result must be equal to the rank of source minus the > number of zeros in strides (result->rank = source->rank - zero_count, 1 != 1 > - 1). > CFI_section: Lower bounds must be within the bounds of the fortran array > (source->dim[0].lower_bound <= lower_bounds[0] <= source->dim[0].lower_bound > + source->dim[0].extent - 1, 0 <= -1 <= 99). > CFI_section: Lower bounds must be within the bounds of the fortran array > (source->dim[0].lower_bound <= lower_bo > unds[0] <= source->dim[0].lower_bound + source->dim[0].extent - 1, 0 <= 100 > <= 99). > > Program received signal SIGSEGV: Segmentation fault - invalid memory > reference. > > Backtrace for this error: > #0 0x7ffffffff1a2 in ??? > #1 0x0 in ??? > > The 2nd, 3rd, and 4th failures are > > CFI_address: subscripts[0], is out of bounds. dv->dim[0].extent = 3 > subscripts[0] = 3. > CFI_address: subscripts[0], is out of bounds. dv->dim[0].extent = 3 > subscripts[0] = -1. > CFI_address: base address of C Descriptor must not be NULL. > CFI_deallocate: Base address is already NULL. > > Program received signal SIGFPE: Floating-point exception - erroneous > arithmetic operation. > > Backtrace for this error: > #0 0x7ffffffff1a2 in ??? > #1 0x400eed in ??? > #2 0x4021ea in _start > at /usr/src/lib/csu/amd64/crt1.c:76 > #3 0x200628fff in ??? > > > -- > Steve -- "If you can't explain it simply, you don't understand it well enough" - Albert Einstein
