3 ! PR fortran/39414: PROCEDURE statement double declaration bug
5 ! Discovered by Paul Thomas <pault@gcc.gnu.org>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
11 procedure(integer) :: a
12 integer :: a
! { dg-error "already has basic type of" }
15 procedure(integer) :: b
! { dg-error "already has basic type of" }
18 integer :: c
! { dg-error "may not have basic type of" }
21 procedure(iabs
) :: d
! { dg-error "already has basic type of" }