1! { dg-do compile } 2! 3! PR 45521: [F08] GENERIC resolution with ALLOCATABLE/POINTER and PROCEDURE 4! 5! Contributed by Janus Weil <janus@gcc.gnu.org> 6 7 8 INTERFACE gen 9 SUBROUTINE suba(a) ! { dg-error "Ambiguous interfaces" } 10 REAL,ALLOCATABLE :: a(:) 11 END SUBROUTINE 12 SUBROUTINE subp(p) ! { dg-error "Ambiguous interfaces" } 13 REAL,POINTER,INTENT(IN) :: p(:) 14 END SUBROUTINE 15 END INTERFACE 16end 17