2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / interface_abstract_3.f90
blob3008d1040156b1ef1aab233bfbcb49a8b2296d4a
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