1! { dg-do compile }
2! { dg-options "-fmax-errors=1" }
3! PR fortran/84922
4! Original code contributed by William Clodius.
5module copy
6
7   interface
8      module subroutine foo_da(da, copy) ! { dg-error "(1)" }
9         integer, intent(in) :: da(:)
10         integer, allocatable, intent(out) :: copy(:)
11      end subroutine foo_da
12   end interface
13
14   contains
15
16      subroutine foo_da(da, copy) ! { dg-error "defined in interface body|PROCEDURE attribute conflicts with PROCEDURE attribute" }
17         integer, intent(in) :: da(:)
18         integer, allocatable, intent(out) :: copy(:)
19         allocate( copy( size(da) ) )
20         copy = da
21      end subroutine foo_da
22
23end module copy
24! { dg-prune-output "compilation terminated" }
25