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

[arjen.markus895 at gmail dot com]

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

            Bug ID: 67779
           Summary: Strange ordering with strings in extended object
           Product: gcc
           Version: 4.9.3
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: arjen.markus895 at gmail dot com
  Target Milestone: ---

Created attachment 36421
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=36421&action=edit
Source file demonstrating the problem

The attached program constructs a small array of integers and strings and then
sorts them. The output is:
 Sorting ...
 Result:
           1
           2
           3
           4
           5
           6
           7
           8
           9
          10
 String = 10         
 String = 1          
 String = 2          
 String = 3          
 String = 4          
 String = 5          
 String = 6          
 String = 7          
 String = 8          
 String = 9           

What is unexpected is the fact that "String = 10" comes before "String = 1". I
have not been able to reduce the code (other than removing the derived type
with integers) and still exhibit the odd ordering. The ten integers show that
the quicksort routine does its job, though. When comparing the strings in a
small program, "String = 10" definitely comes after "String = 1" as I would
expect.