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