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
8INTEGER FUNCTION test ()
9CONTAINS
10END FUNCTION test
11