gcc/testsuite/gfortran.dg/interface_42.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fmax-errors=1" }
   3 ! PR fortran/84922
   4 ! Original code contributed by William Clodius.
   5 module 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" }
  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
  23 end module copy
  24 { dg-prune-output "compilation terminated" }