summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/interface_abstract_3.f90
blob: 3008d1040156b1ef1aab233bfbcb49a8b2296d4a (plain)
1
2
3
4
5
6
7
8
9
10
11
! { dg-do compile }
! test for C1204 of Fortran 2003 standard:
! module procedure not allowed in abstract interface
module m
  abstract interface
     module procedure p	! { dg-error "must be in a generic module interface" }
  end interface
contains
  subroutine p()
  end subroutine
end module m