blob: 3b2934fd1cfe6bdfb3fca5cd2e492c6271cc927c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
!
module mod_interf_abstract
implicit none
abstract interface :: one ! { dg-error "Syntax error in ABSTRACT INTERFACE statement" }
end interface ! { dg-error "Expecting END MODULE statement" }
abstract interface
subroutine two() bind(C)
end subroutine two
subroutine three() bind(C,name="three") ! { dg-error "NAME not allowed on BIND.C. for ABSTRACT INTERFACE" }
end subroutine three ! { dg-error "Expecting END INTERFACE statement" }
subroutine real() ! { dg-error "cannot be the same as an intrinsic type" }
end subroutine real
end interface
contains
subroutine sub() bind(C,name="subC")
end subroutine
end module mod_interf_abstract
|
