1! { dg-do compile } 2! 3! PR fortran/56674 4! PR fortran/58813 5! PR fortran/59016 6! PR fortran/59024 7! The generic name 'atomic_kind_types' was keeping pointers to freed 8! symbols, leading to random error-recovery ICEs. 9! 10! Original test case from Joost VandeVondele <Joost.VandeVondele@mat.ethz.ch>. 11 12MODULE atomic_kind_types 13 PUBLIC :: atomic_kind_type 14CONTAINS 15 INTEGER FUNCTION is_hydrogen(atomic_kind) 16 TYPE(atomic_kind_type), pointer :: atomic_kind ! { dg-error "used before it is defined" } 17 END FUNCTION 18END MODULE 19