gcc/testsuite/gfortran.dg/named_interface.f90

   1 ! { dg-do compile }
   2 ! PR 20363
   3 module snafu
   4   interface foo
   5     subroutine really_snafu (foo)
   6       integer, intent (inout)  :: foo
   7     end subroutine really_snafu
   8   end interface foo
   9 end module snafu
  10
  11 ! { dg-final { cleanup-modules "snafu" } }