1! { dg-do compile }
2!
3! PR 60231: [4.8/4.9 Regression] ICE on undefined generic
4!
5! Contributed by Antony Lewis <antony@cosmologist.info>
6
7module Objects
8
9  Type TObjectList
10  contains
11    procedure :: Add1             ! { dg-error "must be a module procedure" }
12    procedure :: Add2             ! { dg-error "must be a module procedure" }
13    generic :: Add => Add1, Add2  ! { dg-error "are ambiguous" }
14  end Type
15
16end module
17
18! { dg-final { cleanup-modules "Objects" } }
19