[Bug fortran/67779] Strange ordering with strings in extended object

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67779

--- Comment #16 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Created attachment 37190
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37190&action=edit
Test case that still fails

Hi Paul,

> (i) To fix the ICE in trans.c. This is fixed by the change to trans-stmt.c.
> Note that I have not checked to see if this has been cured - my tree is
> somewhat out of date. In anycase, expr3 should never be coming back as a
> NOP_EXPR; and

Andre already fixed this one (PR 69011).

> (ii) Fix the original problem in sorting. As noted previously, this is
> associated with the array offset being zero, rather than -1. Setting
> parmse.use_offset = 0; rather than one does the job.

I tried out this part of your patch (with Andre's fix) and got yet
another failure on a modification of the original test case.

Now sorting the right-hand part of the array fails:

 Sorting ...
 Array on entry
0.997559547 0.566824675 0.965915322 0.747927666 0.367390871 0.480636895
0.737542510E-01 0.535517931E-02 0.347081244 0.342243791  
 Array after shuffling
0.342243791 0.347081244 0.535517931E-02 0.737542510E-01 0.367390871 0.480636895
0.747927666 0.965915322 0.566824675 0.997559547  
Left part, pivot=0.367390871  
 Array on entry
0.342243791 0.347081244 0.535517931E-02 0.737542510E-01  
 Array after shuffling
0.342243791 0.737542510E-01 0.535517931E-02 0.347081244  
Left part, pivot=0.347081244  
 Array on entry
0.342243791 0.737542510E-01 0.535517931E-02  
 Array after shuffling
0.535517931E-02 0.737542510E-01 0.342243791  
Right part, pivot=0.367390871  
 Array on entry
0.535517931E-02 0.737542510E-01 0.342243791 0.347081244 0.367390871  
 Array after shuffling
0.535517931E-02 0.737542510E-01 0.342243791 0.347081244 0.367390871  
Left part, pivot=0.342243791  
 Array on entry
0.480636895 0.747927666  
 Array after shuffling
0.480636895 0.747927666  
Right part, pivot=0.342243791  
 Array on entry
0.480636895 0.747927666  
 Array after shuffling
0.480636895 0.747927666  
 Result:
0.535517931E-02 0.737542510E-01 0.342243791 0.347081244 0.367390871 0.480636895
0.747927666 0.965915322 0.566824675 0.997559547