gcc/testsuite/gfortran.dg/import8.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/44614
   4 !
   5 !
   6
   7 implicit none
   8
   9 type, abstract :: Connection
  10 end type Connection
  11
  12 abstract interface
  13     subroutine generic_desc(self)
  14         ! <<< missing IMPORT
  15         class(Connection) :: self ! { dg-error "is being used before it is defined" }
  16     end subroutine generic_desc
  17 end interface
  18 end