3 module mod_interf_abstract
5 abstract interface :: one ! { dg-error "Syntax error in ABSTRACT INTERFACE statement" }
6 end interface ! { dg-error "Expecting END MODULE statement" }
9 subroutine two() bind(C)
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" }
19 subroutine sub() bind(C,name="subC")
22 end module mod_interf_abstract