1210198Srpaulo! { dg-do compile }
2210198Srpaulo!
3210198Srpaulo! PR fortran/56674
4210198Srpaulo! PR fortran/58813
5210198Srpaulo! PR fortran/59016
6210198Srpaulo! PR fortran/59024
7210198Srpaulo! The generic name 'atomic_kind_types' was keeping pointers to freed
8210198Srpaulo! symbols, leading to random error-recovery ICEs.
9210198Srpaulo!
10210198Srpaulo! Original test case from Joost VandeVondele <Joost.VandeVondele@mat.ethz.ch>.
11210198Srpaulo
12210198SrpauloMODULE atomic_kind_types
13210198Srpaulo  PUBLIC :: atomic_kind_type
14210198SrpauloCONTAINS
15210198Srpaulo  INTEGER FUNCTION is_hydrogen(atomic_kind)
16210198Srpaulo    TYPE(atomic_kind_type), pointer :: atomic_kind ! { dg-error "used before it is defined" }
17210198Srpaulo  END FUNCTION
18210198SrpauloEND MODULE
19210198Srpaulo