gcc/testsuite/gfortran.dg/generic_32.f90

   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
  16 end