3 ! Test the fix for PR69834 in which the two derived types below
4 ! had the same hash value and so generated an error in the resolution
7 ! Reported by James van Buskirk on clf:
8 ! https://groups.google.com/forum/#!topic/comp.lang.fortran/0bm3E5xJpkM
21 subroutine sub(x, switch)
22 class(*), allocatable :: x
26 if (switch .ne. 1) STOP 1
28 if (switch .ne. 2) STOP 2
38 class(*), allocatable :: u1, u2
40 allocate(u1,source = CS5SS(2,1.414))
41 allocate(u2,source = SQS3C(.TRUE.,'Message'))