1! { dg-do compile } 2! 3! PR 53956: [F03] PROCEDURE w/ interface: Bogus "EXTERNAL attribute conflicts with FUNCTION attribute" 4! 5! Contributed by James van Buskirk 6 7 interface 8 subroutine sub (a) 9 integer, external :: a 10 end subroutine 11 end interface 12 13 procedure(sub) :: proc 14 15end 16