| ! { dg-do compile } |
| ! { dg-options "-fsecond-underscore" } |
| ! PR fortran/95828 - ICE in resolve_select_rank, at fortran/resolve.c:9774 |
| |
| module m2345678901234567890123456789012345678901234567890123456789_123 |
| type t2345678901234567890123456789012345678901234567890123456789_123 |
| end type |
| contains |
| subroutine s2345678901234567890123456789012345678901234567890123456789_123 & |
| (x2345678901234567890123456789012345678901234567890123456789_123) |
| type (t2345678901234567890123456789012345678901234567890123456789_123) :: & |
| x2345678901234567890123456789012345678901234567890123456789_123(..) |
| |
| select rank (y2345678901234567890123456789012345678901234567890123456789_123 & |
| => x2345678901234567890123456789012345678901234567890123456789_123) |
| rank (2) |
| rank (3) |
| rank default |
| end select |
| end |
| end |