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
7module Molecular_Abundances_Structure
8  type molecularAbundancesStructure
9  end type
10  class(molecularAbundancesStructure), pointer :: molecules
11end module
12