1! { dg-do compile }
2! { dg-options "-fcoarray=lib -fsecond-underscore" }
3! PR fortran/95090 - ICE: identifier overflow
4
5module m2345678901234567890123456789012345678901234567890123456789_123
6  type t2345678901234567890123456789012345678901234567890123456789_123 &
7      (n2345678901234567890123456789012345678901234567890123456789_123)
8     integer, len :: n2345678901234567890123456789012345678901234567890123456789_123 = 8
9  end type
10  integer :: a2345678901234567890123456789012345678901234567890123456789_123
11  integer :: b2345678901234567890123456789012345678901234567890123456789_123(3)[*]
12  data b2345678901234567890123456789012345678901234567890123456789_123 /1,2,3/
13contains
14  subroutine s2345678901234567890123456789012345678901234567890123456789_123
15    type(t2345678901234567890123456789012345678901234567890123456789_123 &
16        (n2345678901234567890123456789012345678901234567890123456789_123)) :: &
17         z2345678901234567890123456789012345678901234567890123456789_123
18   end
19end
20