3 ! PR 49591: [OOP] Multiple identical specific procedures in type-bound operator not detected
5 ! This is interpretation request F03/0018:
6 ! http://www.j3-fortran.org/doc/meeting/195/11-214.txt
8 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
14 procedure :: MyAdd_t => myadd
15 generic :: operator(+) => myAdd_t
20 procedure, pass(b) :: MyAdd_x => myadd
21 generic :: operator(+) => myAdd_x ! { dg-error "is already present in the interface" }
24 integer function MyAdd ( A, B )
25 class(t), intent(in) :: A
26 class(x), intent(in) :: B
38 procedure :: MyAdd_t => myadd
39 generic :: operator(+) => myAdd_t ! { dg-error "is already present in the interface" }
42 integer function MyAdd ( A, B )
43 class(t), intent(in) :: A
49 ! { dg-final { cleanup-modules "M1 M2" } }