1! { dg-do compile } 2! 3module mod_interf_abstract 4implicit none 5abstract interface :: one ! { dg-error "Syntax error in ABSTRACT INTERFACE statement" } 6end interface ! { dg-error "Expecting END MODULE statement" } 7 8abstract 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 15end interface 16 17contains 18 19 subroutine sub() bind(C,name="subC") 20 end subroutine 21 22end module mod_interf_abstract 23