121 lines
2.9 KiB
Text
121 lines
2.9 KiB
Text
$NetBSD: patch-aj,v 1.2 2001/04/07 12:43:49 dmcmahill Exp $
|
|
|
|
does a sanity check of the settings in f2c.h If these settings
|
|
are wrong, a message is printed asking that the package maintainer
|
|
be contacted.
|
|
|
|
--- /dev/null Wed Jan 13 02:06:04 1999
|
|
+++ chktypes.c Wed Jan 13 18:12:34 1999
|
|
@@ -0,0 +1,112 @@
|
|
+#include <stdio.h>
|
|
+#include <string.h>
|
|
+#include "f2c.h"
|
|
+
|
|
+int main(int argc, char *argv[])
|
|
+{
|
|
+
|
|
+ int err=0;
|
|
+ int pok=0;
|
|
+
|
|
+
|
|
+ if(argc > 1)
|
|
+ {
|
|
+ if(strncmp(argv[1],"-v",2)==0)
|
|
+ {
|
|
+ pok=1;
|
|
+ }
|
|
+ }
|
|
+ if(sizeof(doublecomplex) == 2*sizeof(doublereal))
|
|
+ {
|
|
+ if(pok)
|
|
+ printf("sizeof(doublecomplex) = 2*sizeof(doublereal) = %d\n",sizeof(doublecomplex));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ printf("ERROR:\tsizeof(doublecomplex) \t= %d\n\t2*sizeof(doublereal) \t= %d\n",
|
|
+ sizeof(doublecomplex),2*sizeof(doublereal));
|
|
+ err=1;
|
|
+ }
|
|
+
|
|
+
|
|
+ if(sizeof(doublereal) == sizeof(complex))
|
|
+ {
|
|
+ if(pok)
|
|
+ printf("sizeof(doublereal) = sizeof(complex) = %d\n",sizeof(doublereal));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ printf("ERROR:\tsizeof(doublereal) \t= %d\n\tsizeof(complex) \t= %d\n",
|
|
+ sizeof(doublereal),sizeof(complex));
|
|
+ err=1;
|
|
+ }
|
|
+
|
|
+
|
|
+ if(sizeof(doublereal) == 2*sizeof(real))
|
|
+ {
|
|
+ if(pok)
|
|
+ printf("sizeof(doublereal) = 2*sizeof(real) = %d\n",sizeof(doublereal));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ printf("ERROR:\tsizeof(doublereal) \t= %d\n\t2*sizeof(real)\t = %d\n",
|
|
+ sizeof(doublereal),2*sizeof(real));
|
|
+ err=1;
|
|
+ }
|
|
+
|
|
+ if(sizeof(real) == sizeof(integer))
|
|
+ {
|
|
+ if(pok)
|
|
+ printf("sizeof(real) = sizeof(integer) = %d\n",sizeof(real));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ printf("ERROR:\tsizeof(real) \t= %d\n\tsizeof(integer) \t= %d\n",
|
|
+ sizeof(real),sizeof(integer));
|
|
+ err=1;
|
|
+ }
|
|
+
|
|
+ if(sizeof(real) == sizeof(logical))
|
|
+ {
|
|
+ if(pok)
|
|
+ printf("sizeof(real) = sizeof(logical) = %d\n",sizeof(real));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ printf("ERROR:\tsizeof(real) \t= %d\n\tsizeof(logical) \t= %d\n",
|
|
+ sizeof(real),sizeof(logical));
|
|
+ err=1;
|
|
+ }
|
|
+
|
|
+ if(sizeof(real) == 2*sizeof(shortint))
|
|
+ {
|
|
+ if(pok)
|
|
+ printf("sizeof(real) = 2*sizeof(shortint) = %d\n",sizeof(real));
|
|
+ }
|
|
+ else
|
|
+ {
|
|
+ printf("ERROR:\tsizeof(real) \t= %d\n\t2*sizeof() \t= %d\n",
|
|
+ sizeof(real),2*sizeof(shortint));
|
|
+ err=1;
|
|
+ }
|
|
+
|
|
+ if(pok)
|
|
+ {
|
|
+ printf("\n\n-------------------\n");
|
|
+ printf("sizeof(short) = %d\n",sizeof(short));
|
|
+ printf("sizeof(int) = %d\n",sizeof(int));
|
|
+ printf("sizeof(float) = %d\n",sizeof(float));
|
|
+ printf("sizeof(long) = %d\n",sizeof(long));
|
|
+ printf("sizeof(double) = %d\n",sizeof(double));
|
|
+ printf("\n\n-------------------\n");
|
|
+ }
|
|
+
|
|
+ if(err)
|
|
+ {
|
|
+ printf("The header file f2c.h has the wrong typedef's for your machine\n");
|
|
+ printf("architecture. Please contact the package maintainer.\n");
|
|
+ }
|
|
+
|
|
+ return(err);
|
|
+}
|
|
+
|