! { dg-do run }
#include "cpp5.h"
	IF (FOO().NE.1) CALL ABORT ()
	END