2 ! This tests various error messages for PROCEDURE declarations.
3 ! Contributed by Janus Weil <jaydub66@gmail.com>
10 subroutine sub2() bind(c
)
14 procedure(), public
, private
:: a
! { dg-error "was already specified" }
15 procedure(sub
),bind(C
) :: a2
! { dg-error "requires an interface with BIND.C." }
16 procedure(sub2
), public
, bind(c
, name
="myEF") :: e
, f
! { dg-error "Multiple identifiers provided with single NAME= specifier" }
17 procedure(sub2
), bind(C
, name
=""), pointer :: g
! { dg-error "may not have POINTER attribute" }
20 procedure(),public
:: h
! { dg-error "was already specified" }
26 entry abc2(x
) ! { dg-error "PROCEDURE attribute conflicts with ENTRY attribute" }
42 procedure(z
) :: bar
! { dg-error "may not be generic" }
44 procedure(), allocatable
:: b
! { dg-error "PROCEDURE attribute conflicts with ALLOCATABLE attribute" }
45 procedure(), save:: c
! { dg-error "PROCEDURE attribute conflicts with SAVE attribute" }
47 procedure(dcos
) :: my1
48 procedure(amax0
) :: my2
! { dg-error "not allowed in PROCEDURE statement" }
54 procedure(f
) :: q
! { dg-error "may not be a statement function" }
55 procedure(oo
) :: p
! { dg-error "must be explicit" }
58 procedure ( up
) :: s
! { dg-error "must be explicit" }
60 procedure(t
) :: t
! { dg-error "may not be used as its own interface" }
66 subroutine foo(a
,c
) ! { dg-error "PROCEDURE attribute conflicts with INTENT attribute" }
68 subroutine b() bind(C
)
71 procedure(b
), bind(c
,name
="hjj") :: a
! { dg-error "may not have BIND.C. attribute with NAME" }
72 procedure(b
),intent(in
):: c