| ! { dg-do compile } |
| ! { dg-options "-fcoarray=lib -fsecond-underscore" } |
| ! PR fortran/95090 - ICE: identifier overflow |
| |
| module m2345678901234567890123456789012345678901234567890123456789_123 |
| type t2345678901234567890123456789012345678901234567890123456789_123 & |
| (n2345678901234567890123456789012345678901234567890123456789_123) |
| integer, len :: n2345678901234567890123456789012345678901234567890123456789_123 = 8 |
| end type |
| integer :: a2345678901234567890123456789012345678901234567890123456789_123 |
| integer :: b2345678901234567890123456789012345678901234567890123456789_123(3)[*] |
| data b2345678901234567890123456789012345678901234567890123456789_123 /1,2,3/ |
| contains |
| subroutine s2345678901234567890123456789012345678901234567890123456789_123 |
| type(t2345678901234567890123456789012345678901234567890123456789_123 & |
| (n2345678901234567890123456789012345678901234567890123456789_123)) :: & |
| z2345678901234567890123456789012345678901234567890123456789_123 |
| end |
| end |