gcc/testsuite/gfortran.dg/empty_function_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/38252
   4 ! FUNCTION rejected if both specification and execution part are empty
   5 !
   6 ! Contributed by Daniel Kraft <d@domob.eu>
   7
   8 INTEGER FUNCTION test ()
   9 CONTAINS
  10 END FUNCTION test