gcc/testsuite/gfortran.dg/pr95090.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=lib -fsecond-underscore" }
   3 ! PR fortran/95090 - ICE: identifier overflow
   4
   5 module 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/
  13 contains
  14   subroutine s2345678901234567890123456789012345678901234567890123456789_123
  15     type(t2345678901234567890123456789012345678901234567890123456789_123 &
  16         (n2345678901234567890123456789012345678901234567890123456789_123)) :: &
  17          z2345678901234567890123456789012345678901234567890123456789_123
  18    end
  19 end