modula2: Simplify REAL/LONGREAL/SHORTREAL node creation.

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr95091.f90

! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95091 - ICE in gfc_hash_value

module m2345678901234567890123456789012345678901234567890123456789_123
  type t2345678901234567890123456789012345678901234567890123456789_123
  end type t2345678901234567890123456789012345678901234567890123456789_123
  interface
     module subroutine s2345678901234567890123456789012345678901234567890123456789_123 &
          (x2345678901234567890123456789012345678901234567890123456789_123)
    end
  end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
     n2345678901234567890123456789012345678901234567890123456789_123
  type, extends(t2345678901234567890123456789012345678901234567890123456789_123) :: &
    u2345678901234567890123456789012345678901234567890123456789_123
  end type
end