gcc/testsuite/gfortran.dg/end_subroutine_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2008" }
   3 !
   4 interface
   5   subroutine foo()
   6   end
   7   integer function bar()
   8   end
   9 end interface
  10 contains
  11   subroutine test()
  12   end
  13   integer function f()
  14     f = 42
  15   end
  16 end