#define MYDEF program
MYDEF foo
    write (*,*) 'Hello, world!'
end MYDEF foo