mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
28 lines
532 B
Fortran
28 lines
532 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 86116: [6/7/8/9 Regression] Ambiguous generic interface not recognised
|
|
!
|
|
! Contributed by martin <mscfd@gmx.net>
|
|
|
|
module mod
|
|
|
|
type :: t
|
|
end type t
|
|
|
|
interface sub
|
|
module procedure s1
|
|
module procedure s2
|
|
end interface
|
|
|
|
contains
|
|
|
|
subroutine s1(x) ! { dg-error "Ambiguous interfaces in generic interface" }
|
|
type(t) :: x
|
|
end subroutine
|
|
|
|
subroutine s2(x) ! { dg-error "Ambiguous interfaces in generic interface" }
|
|
class(*), allocatable :: x
|
|
end subroutine
|
|
|
|
end
|