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