gcc/testsuite/gfortran.dg/generic_34.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 86116: [6/7/8/9 Regression] Ambiguous generic interface not recognised
   4 !
   5 ! Contributed by martin <mscfd@gmx.net>
   6
   7 module mod
   8
   9    type :: t
  10    end type t
  11
  12    interface sub
  13       module procedure s1
  14       module procedure s2
  15    end interface
  16
  17 contains
  18
  19    subroutine s1(x)  ! { dg-error "Ambiguous interfaces in generic interface" }
  20       type(t) :: x
  21    end subroutine
  22
  23    subroutine s2(x)  ! { dg-error "Ambiguous interfaces in generic interface" }
  24       class(*), allocatable :: x
  25    end subroutine
  26
  27 end