ack/lang/cem/ctest/ctconv/conv.c

/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 *
 */

/* Author: E.G. Keizer */

char rcs_id[] = "$Header$" ;

main() {
	t1() ;
	return 0 ;
}

t1() {
	char c ; int i ; long l ; unsigned u ;
#ifndef NOFLOAT
	float f ;
#endif

	/* test conversions */

	/* first some conversions on constants */

	printf("(int) '\\377' = %d\n",(int) '\377') ;
	printf("(long) -1 = %ld\n",(long) -1 ) ;
#ifndef NOFLOAT
	printf("(float) 12 = %f\n",(float) 12 ) ;
	printf("(int) 3.14 = %d\n",(int) 3.14 ) ;
#endif
	printf("(int) 32767L = %d\n",(int) 32767L ) ;
	printf("(int) -32768L = %d\n",(int) -32768L ) ;
	printf("(char) 128L = %d\n",(char) 128L) ;
	printf("(char) 0377 = %d\n",(char) 0377 ) ;
	printf("(char) -1 = %d\n",(char) -1 ) ;
	printf("(char) 10000 = %d\n",(char) 10000 ) ;

	/* conversions from characters */
	printf("From character\n") ;
	c = 127 ;
	i=c ;
	l=c ;
	u=c ;
#ifndef NOFLOAT
	f=c ;
#endif
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld\n",c,i,u,l) ;
#ifndef NOFLOAT
	printf("\t\t\t\t\tfloat %f\n",f) ;
#endif
	c = -1 ;
	i=c ;
	l=c ;
	u=c ;
#ifndef NOFLOAT
	f=c ;
#endif
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld\n",c,i,u,l) ;
#ifndef NOFLOAT
	printf("\t\t\t\t\tfloat %f\n",f) ;
#endif
	c = 0377 ;
	i=c ;
	l=c ;
	u=c ;
#ifndef NOFLOAT
	f=c ;
#endif
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld\n",c,i,u,l) ;
#ifndef NOFLOAT
	printf("\t\t\t\t\tfloat %f\n",f) ;
#endif

	/* from integer */
	printf("From integer\n") ;
	i= -64 ;
	c=i ;
	l=i ;
	u=i ;
#ifndef NOFLOAT
	f=i ;
#endif
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld\n",c,i,u,l) ;
#ifndef NOFLOAT
	printf("\t\t\t\t\tfloat %f\n",f) ;
#endif
	/* from long */
	printf("From long\n") ;
	l = -3 ;
	c = l ;
	i = l ;
	u = l ;
#ifndef NOFLOAT
	f = l ;
#endif
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld\n",c,i,u,l) ;
#ifndef NOFLOAT
	printf("\t\t\t\t\tfloat %f\n",f) ;
#endif

	printf("Casts from long\n");
	l = 75000;
	printf("\tchar %5d, int %d, unsigned short %6o, long %11ld\n",
		(char) l,(int) l,(unsigned short)l ,l) ;

#ifndef NOFLOAT
	printf("From float\n") ;
	f = 121.5 ;
	c = f ;
	i = f ;
	u = f ;
	l = f ;
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
	f = 1e-4 ;
	c = f ;
	i = f ;
	u = f ;
	l = f ;
	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
	f = 3276.6e1 ;
	i = f ;
	u = f ;
	l = f ;
	printf("\tint %6d, unsigned %6o, long %11ld, float %f\n",i,u,l,f) ;
	f = 1223432e3 ;
	l = f ;
	printf("\tlong %11ld, float %f\n",l,f) ;
#endif

	/* some special cases */
	{
		int a[4] ;

		l = 3 ; a[3]= -17 ;
		printf("a[l] (l==%ld) %d\n",l,a[l]) ;
		printf("a[3l] %d\n",a[3l] ) ;

	}
	return 0 ;
}