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