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