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" }