aboutsummaryrefslogtreecommitdiff
path: root/gcc/f/runtime/libI77/typesize.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/f/runtime/libI77/typesize.c')
-rw-r--r--gcc/f/runtime/libI77/typesize.c12
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/f/runtime/libI77/typesize.c b/gcc/f/runtime/libI77/typesize.c
new file mode 100644
index 00000000000..1cb20ff2863
--- /dev/null
+++ b/gcc/f/runtime/libI77/typesize.c
@@ -0,0 +1,12 @@
+#include "f2c.h"
+
+ftnlen f__typesize[] = { 0, 0, sizeof(shortint), sizeof(integer),
+ sizeof(real), sizeof(doublereal),
+ sizeof(complex), sizeof(doublecomplex),
+ sizeof(logical), sizeof(char),
+ 0, sizeof(integer1),
+ sizeof(logical1), sizeof(shortlogical),
+#ifdef Allow_TYQUAD
+ sizeof(longint),
+#endif
+ 0};