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