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