gcc/testsuite/gfortran.dg/interface_abstract_1.f90

   1 ! { dg-do compile }
   2 !
   3 module mod_interf_abstract
   4 implicit none
   5 abstract interface :: one ! { dg-error "Syntax error in ABSTRACT INTERFACE statement" }
   6 end interface ! { dg-error "Expecting END MODULE statement" }
   7
   8 abstract interface
   9   subroutine two() bind(C)
  10   end subroutine two
  11   subroutine three() bind(C,name="three") ! { dg-error "NAME not allowed on BIND.C. for ABSTRACT INTERFACE" }
  12   end subroutine three ! { dg-error "Expecting END INTERFACE statement" }
  13   subroutine real() ! { dg-error "cannot be the same as an intrinsic type" }
  14   end subroutine real
  15 end interface
  16
  17 contains
  18
  19   subroutine sub() bind(C,name="subC")
  20   end subroutine
  21
  22 end module mod_interf_abstract