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