ports//lang/gnat-gcc42/work/gcc-4.2.2/gcc/testsuite/gfortran.dg/g77/cpp5.h

        FUNCTION FOO()
#include "cpp5inc.h"
        END FUNCTION

syntax highlighted by Code2HTML, v. 0.9.1