gcc/testsuite/gfortran.dg/class_33.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 46971: [4.6 Regression] [OOP] ICE on long class names
   4 !
   5 ! Contributed by Andrew Benson <abenson@its.caltech.edu>
   6
   7 module Molecular_Abundances_Structure
   8   type molecularAbundancesStructure
   9   end type
  10   class(molecularAbundancesStructure), pointer :: molecules
  11 end module
  12
  13 ! { dg-final { cleanup-modules "molecular_abundances_structure" } }