{
	if (platform() != "DECSTATION") {
		cat("Skipping this test since this isn't DECSTATION.\n")
		end.do.test()
	}
	T
}
{
	# check that -G 0 is set in MISC_CFLAGS and MISC_FFLAGS in $C/makehead
	# for DECSTATION, and that these macros are used in MAKE for
	# .c.o and .f.o

	# check that -G 0 is set in CFLAGS and FFLAGS in $L/S_makefile for
	# DECSTATION, and that these macros are used in 'make' for
	# .c.o and .f.o during Splus LOAD.

	# sbug 7/11/91 bill, 7/13/91 peter


	# Script unsets these flags from the environment, since some are set and
	# exported in ~stest/bin/LOOP: MISC_CFLAGS  MISC_FFLAGS  CFLAGS  FFLAGS
	# Note sophia's /bin/sh does not have 'unset'

	temp <- tempfile()
	cat(file=temp, '

rm -f junk1.* junk2.*; touch junk1.c junk2.f

echo unsetting from environment : MISC_CFLAGS  MISC_FFLAGS  CFLAGS  FFLAGS
echo
MISC_CFLAGS=
MISC_FFLAGS=
CFLAGS=
FFLAGS=

$SHOME/cmd/MAKE -n junk1.o
echo ; echo

$SHOME/cmd/MAKE -n junk2.o
echo ; echo

# mimic Splus LOAD:
make -f $SHOME/newfun/lib/S_makefile -n junk1.o
echo ; echo

# mimic Splus LOAD:
make -f $SHOME/newfun/lib/S_makefile -n junk2.o
	')

	cat("Check that -G 0 is present in the following 4 compile commands:\n\n")
	unix(paste("sh", temp, "; rm -f junk1.c junk2.f", temp), output=F)
	T

}