gcc/testsuite/gfortran.dg/interface_abstract_3.f90

   1 ! { dg-do compile }
   2 ! test for C1204 of Fortran 2003 standard:
   3 ! module procedure not allowed in abstract interface
   4 module m
   5   abstract interface
   6      module procedure p ! { dg-error "must be in a generic module interface" }
   7   end interface
   8 contains
   9   subroutine p()
  10   end subroutine
  11 end module m