gcc/testsuite/gfortran.dg/used_types_27.f90

   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
  12 MODULE atomic_kind_types
  13   PUBLIC :: atomic_kind_type
  14 CONTAINS
  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
  18 END MODULE