1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347
|
/* $Id: ftnchek.h,v 1.94 2005/02/06 21:36:37 moniot Exp $
Common definitions for Fortran Program Checker
*/
/*
Copyright (c) 2001 by Robert K. Moniot.
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or
sell copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following
conditions:
The above copyright notice and this permission notice shall be
included in all copies or substantial portions of the
Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY
KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Acknowledgement: the above permission notice is what is known
as the "MIT License."
Acknowledgement: the above permission notice was copied, with minor
changes, from the XFree86 Project.
*/
#define COPYRIGHT_DATE \
"Copyright (C) 1994, 1997, 2000, 2004 by Robert K. Moniot"
#define COPYRIGHT_NOTICE \
"This program is free software. Permission is granted to\n\
modify it and/or redistribute it, retaining this notice.\n\
No guarantees accompany this software."
#define VERSION_NUMBER "FTNCHEK Version 3.3 November 2004"
#define PATCHLEVEL "Patch Level 1"
#define PROJECT_VERSION "P3" /* Project file format version number */
#include "config.h" /* Get system-specific information */
/* Define macro PROTO for declaring function prototypes. If
compiler doesn't accept prototypes, use -DNO_PROTOTYPES.
The args in macro must be enclosed in parentheses.
Define macro VOID for declaring functions without
args. Also define HAVE_STDC for declaring functions
in ANSI form or Kernighan-Ritchie form. Each function
defn is in both forms, with #ifdef HAVE_STDC to select
between them.
*/
#ifdef NO_PROTOTYPES
#define PROTO(TYPE_AND_NAME,ARGS) TYPE_AND_NAME()
#define VOID
#define HAVE_STDC 0
#else
#define PROTO(TYPE_AND_NAME,ARGS) TYPE_AND_NAME ARGS
#define VOID void
#define HAVE_STDC 1
#endif
/* The following system defines should be defined with the -D
(for UNIX) or /DEFINE (for VMS) compiler options in the makefile,
not here. They are shown here so you know what to define.
MSDOS should be defined for IBM PC version. We set it here
automatically if a DOS/Win compiler is detected, otherwise when
compiling you should define it on compiler command line.
Only one of MSDOS, VMS, or UNIX should be defined. They control
details of behavior such as filename extensions and use of slash
as an option prefix.
*/
/*#define VMS*/ /* Set flag for VMS system-dependent defns. */
/*#define UNIX*/ /* Set flag for UNIX (any flavor) defns. */
/* Many (all?) Windows compilers autodefine _WIN32. I am guessing
about _MSDOS. TurboC (DOS and Win versions) sets __TURBOC__ */
#if defined(_WIN32) || defined(_MSDOS) || defined(__TURBOC__)
#define MSDOS /* Set flag for MSDOS (including Windows) */
#endif
/* For portability, declare standard routines here. */
#if HAVE_STDLIB_H
#include <stdlib.h>
#else
PROTO(char *getenv,(char *));
PROTO(char *malloc,(unsigned));
PROTO(char *calloc,(unsigned,unsigned));
PROTO(VOID free,(void *));
PROTO(VOID exit,(int));
#endif
/*************************************************************************
Begin section of defines for system-dependent configuration.
**************************************************************************/
/* set flag to allow options to start with '/' */
#ifndef OPTION_PREFIX_SLASH
#ifndef NO_OPTION_PREFIX_SLASH
#ifdef VMS
#define OPTION_PREFIX_SLASH
#endif
#ifdef MSDOS
#define OPTION_PREFIX_SLASH
#endif
#endif
#endif
/* Define standard home directory for VMS and MSDOS.
This directory is one place ftnchek looks for the
rc or ini file. */
#ifdef VMS
#ifndef SPECIAL_HOMEDIR
#define SPECIAL_HOMEDIR "SYS$DISK:[]"
#endif
#endif
#ifdef MSDOS
#ifndef SPECIAL_HOMEDIR
#define SPECIAL_HOMEDIR "c:\\lib"
#endif
#endif
/* Define the Unix-style startup file name and a non-Unix-style
alternate. Both are looked for on all systems. */
#ifndef UNIX_RC_FILE
#define UNIX_RC_FILE ".ftnchekrc"
#endif
#ifndef NONUNIX_RC_FILE
#define NONUNIX_RC_FILE "ftnchek.ini"
#endif
/* Define default source and output file extensions. These
* can be overridden by defines on compiler commandline.
*/
#ifndef DEF_SRC_EXTENSION
#ifdef VMS
#define DEF_SRC_EXTENSION ".for" /* VMS default extension */
#endif
#ifdef MSDOS
#define DEF_SRC_EXTENSION ".for" /* IBM PC default extension */
#endif
#endif /* DEF_SRC_EXTENSION */
#ifndef DEF_SRC_EXTENSION
#define DEF_SRC_EXTENSION ".f" /* Unix and all others */
#endif
/* define default list-file extension */
#ifndef DEF_LIST_EXTENSION
#define DEF_LIST_EXTENSION ".lis"
#endif
/* define default project-file extension */
#ifndef DEF_PROJ_EXTENSION
#define DEF_PROJ_EXTENSION ".prj"
#endif
/* define default declaration-file extension */
#ifndef DEF_DCL_EXTENSION
#define DEF_DCL_EXTENSION ".dcl"
#endif
/* define default html documentation-file extension */
#ifndef DEF_HTML_EXTENSION
#define DEF_HTML_EXTENSION ".html"
#endif
/* define default include-file extension */
#ifndef DEF_INC_EXTENSION
#define DEF_INC_EXTENSION DEF_SRC_EXTENSION
#endif
/* define default declaration-file extension */
#ifndef DEF_VCG_EXTENSION
#define DEF_VCG_EXTENSION ".vcg"
#endif
/* define project-file name for case of input from stdin */
#ifndef STDIN_PROJ_FILENAME
#define STDIN_PROJ_FILENAME "ftnchek.prj"
#endif
#ifndef ENV_PREFIX /* prefix for option environment variables */
#define ENV_PREFIX "FTNCHEK_"
#endif
#ifndef ENV_INCLUDE_VAR
#define ENV_INCLUDE_VAR "INCLUDE" /* name of env variable for include dir */
#endif
#ifndef DEFAULT_INCLUDE_DIR
#ifdef UNIX
#define DEFAULT_INCLUDE_DIR "/usr/include"
#endif
#ifdef VMS
#define DEFAULT_INCLUDE_DIR "SYS$LIBRARY:"
#endif
#ifdef MSDOS
#define DEFAULT_INCLUDE_DIR "\\include"
#endif
#endif
/*************************************************************************
End of section of defines for system-dependent configuration.
Begin section of defines to control ftnchek's behavior
(syntax accepted, options supported, etc.)
**************************************************************************/
/* The following macro turns on useful extra information saying
"expecting whatever" in "parse error" messages from GNU
bison-generated parser. This macro may not do anything if
parser is generated by another version of bison or yacc.
*/
#ifndef NO_YYERROR_VERBOSE
#define YYERROR_VERBOSE
#endif
/* This is the default limit on "cascades" of error
messages where the trailer "etc..." is given
instead of printing them all. The limit can be
changed at run time by -error=num.
*/
#ifndef DEF_ERROR_CASCADE_LIMIT
#define DEF_ERROR_CASCADE_LIMIT 3
#endif
/* VCG support is now standard. If you don't want it, you can
eliminate it by defining NO_VCG_SUPPORT. You can customize
the graph options by changing the macro VCG_GRAPH_OPTIONS.
Include \n between options and after the last option.
(These options affect the graph as a whole.) */
#ifndef NO_VCG_SUPPORT
#define VCG_SUPPORT
#ifndef VCG_GRAPH_OPTIONS
#define VCG_GRAPH_OPTIONS "color: lightgray\n"
#endif
#endif
/* Define the amount of indentation of declarations produced
under -makedcls in free-form mode. Must be >= 0.
*/
#ifndef DCL_FREEFORM_INDENT
#define DCL_FREEFORM_INDENT 2
#endif
/* The following defines control the default status of
warnings controlled by -arg, -f77/90/95, -port, -pretty, and -trunc.
*/
/* -arguments options default to ARGCHECK_ALL. Define
LAX_ARGCHECK to make -arguments=none the default.
Otherwise -arguments=all is default.
*/
#ifdef LAX_ARGCHECK
#define ARGCHECK_ALL FALSE
#else
#define ARGCHECK_ALL TRUE
#endif
/* -array options default to ARRAYCHECK_ALL. Define
LAX_ARRAYCHECK to make -array=none the default.
Otherwise -array=all is default.
*/
#ifdef LAX_ARRAYCHECK
#define ARRAYCHECK_ALL FALSE
#else
#define ARRAYCHECK_ALL TRUE
#endif
/* -common options default to COMCHECK_ALL, except for
volatile, which defaults to FALSE. Define
LAX_COMCHECK to make -common=none the default.
Otherwise -common=type,length,exact is default.
*/
#ifdef LAX_COMCHECK
#define COMCHECK_ALL FALSE
#else
#define COMCHECK_ALL TRUE
#endif
/* -f77 options default to F77_ALL. Define
STRICT_SYNTAX to make -f77=all the default.
Otherwise -f77=none is default.
*/
#ifdef STRICT_SYNTAX
#define F77_ALL 1
#else
#define F77_ALL 0
#endif
/* -f90 options default to none unless
F90_SYNTAX is defined.
*/
#ifdef F90_SYNTAX
#define F90_ALL 1
#else
#define F90_ALL 0
#endif
/* -f95 options default to none unless
F95_SYNTAX is defined.
*/
#ifdef F95_SYNTAX
#define F95_ALL 1
#else
#define F95_ALL 0
#endif
/* -portability options default to PORT_ALL. Define
STRICT_PORTABILITY to make -port=all the default.
Otherwise -port=none is default.
*/
#ifdef STRICT_PORTABILITY
#define PORT_ALL TRUE
#else
#define PORT_ALL FALSE
#endif
/* -pretty options default to PRETTY_ALL. Define
UGLY_IS_OK to make -pretty=none the default.
Otherwise -pretty=all is default.
*/
#ifdef UGLY_IS_OK
#define PRETTY_ALL FALSE
#else
#define PRETTY_ALL TRUE
#endif
/* -source options are defined here. Since
-source=all is unlikely to be desired, each
option has its own macro for default value */
#ifndef DEC_TABS /* DEC-style ugly tabbed source is off by default */
#define DEC_TABS FALSE
#endif
/* VMS-style INCLUDE supports defaulting
extension, /NOLIST feature. It is default
for VMS, not for other systems. */
#ifndef VMS_INCLUDE
#ifdef VMS
#define VMS_INCLUDE TRUE
#else
#define VMS_INCLUDE FALSE
#endif
#endif
#ifndef UNIX_BACKSLASH /* UNIX backslash escape sequences in strings */
#define UNIX_BACKSLASH FALSE
#endif
/* standard parameters take data type from value */
#ifndef PARAMETER_IMPLICIT_TYPE
#define PARAMETER_IMPLICIT_TYPE FALSE
#endif
/* DEC-style parameters get data type in standard way */
#ifndef DEC_PARAMETER_STANDARD_TYPE
#define DEC_PARAMETER_STANDARD_TYPE FALSE
#endif
/* -style options default to STYLECHECK_ALL, which
should be FALSE to prevent ftnchek from spewing
warnings about perfectly normal code.
*/
#ifndef STYLECHECK_ALL
#define STYLECHECK_ALL FALSE
#endif
/* -truncation options default to TRUNC_ALL. Define
LAX_TRUNCATION to make -trunc=none the default.
Otherwise -trunc=all is default.
*/
#ifdef LAX_TRUNCATION
#define TRUNC_ALL FALSE
#else
#define TRUNC_ALL TRUE
#endif
/* -usage options default to USAGE_ALL. Define
LAX_USAGE to make -usage=none the default.
Otherwise -usage=all is default.
*/
#ifdef LAX_USAGE
#define USAGE_ALL FALSE
#else
#define USAGE_ALL TRUE
#endif
/* The macros in the following section control whether
certain groups of nonstandard intrinsics are compiled
into ftnchek. By turning off all these macros using the
STANDARD_INTRINSICS define or selectively by using the
NO_ prefix, some efficiency is gained but these intrinsics
will then never be recognized by ftnchek, regardless of
the -intrinsic setting. Turn these off only if you are
a purist who will never use non-F77 intrinsics.
*/
#ifndef STANDARD_INTRINSICS
#ifndef NO_EXTRA_INTRINSICS
#define EXTRA_INTRINSICS /* Common nonstandard intrinsic functions */
#endif
#ifndef NO_UNIX_INTRINSICS
#define UNIX_INTRINSICS /* UNIX intrinsic functions */
#endif
#ifndef NO_VMS_INTRINSICS
#define VMS_INTRINSICS /* VMS intrinsic functions */
#endif
/* The macros in the next section define the default
value of the -intrinsic settings governing which
intrinsic groups to recognize and how to treat RAND
and IARGC, which may take no argument or one dummy
argument on different platforms.
*/
/* Define which sets to recognize by default:
bit 0 = commonly available nonstandard intrinsics
bit 1 = some Unix intrinsics
bit 2 = some VMS intrinsics
*/
#ifdef UNIX /* Unix default: accept Common & Unix intrinsics */
#define DEF_INTRINSIC_SET 3
#endif
#ifdef VMS /* VMS default: accept Common & VMS intrinsics */
#define DEF_INTRINSIC_SET 5
#endif
#ifndef DEF_INTRINSIC_SET /* Otherwise default = only common set */
#define DEF_INTRINSIC_SET 1
#endif
/* Define which RAND form to use.
bit 0 = allow no-arg form
bit 1 = allow one-arg form
*/
#ifdef RAND_NO_ARG /*RAND() form*/
#define DEF_INTRINSIC_RAND 1
#else
#ifdef RAND_ONE_ARG /*RAND(ISEED) form*/
#define DEF_INTRINSIC_RAND 2
#else /* Default: allow either form */
#define DEF_INTRINSIC_RAND 3
#endif
#endif
/* Define which IARGC form to use */
#ifdef IARGC_NO_ARG
#define DEF_INTRINSIC_IARGC 1
#else
#ifdef IARGC_ONE_ARG
#define DEF_INTRINSIC_IARGC 2
#else /* Default: allow either form */
#define DEF_INTRINSIC_IARGC 3
#endif
#endif
#endif /* not STANDARD_INTRINSICS */
/* Default BpW = 4 bytes per word, which matches many machines.
This macro serves as the default value for -wordsize.
If the Fortran code does not declare explicit sizes of
numeric variables (e.g. REAL*8), then the value of -wordsize will
not matter, since the table conforms to the standard in that
sizeof(INTEGER)=sizeof(REAL), and sizeof(DOUBLE)=sizeof(COMPLEX)
=2*sizeof(REAL). If the code does declare explicit sizes of
numeric types, then the value of -wordsize will matter if explicit
and default sizes are expected to match. If you want to
suppress warnings of this kind, you may use the -wordsize setting
or, to make it the default, change BpW to match
your hardware. Under the -portability option, explicit and
default sizes never match: e.g. passing REAL*8 where DOUBLE
PRECISION expected. None of this applies to CHARACTER data:
the default size (1) is well-defined, and the standard does
not specify the ratio of sizeof(CHARACTER) to sizeof(REAL).
For the Cray pointer extension, we also define PTRSIZE as the size of
a pointer. The default is the same as the wordsize. This can be
changed at run time by -pointersize=nnn.
*/
#ifndef BpW
#define BpW 4 /* Bytes per Word: might want to use sizeof(float) instead */
#endif
#ifndef PTRSIZE
#define PTRSIZE BpW
#endif
/* Define to tolerate embedded blanks in numeric consts unless
feature turned off by defining NO_BLANKS_IN_NUMBERS. */
#ifndef NO_BLANKS_IN_NUMBERS
#define BLANKS_IN_NUMBERS
#endif
/* Default value of -wrap option */
#ifndef WRAP_COLUMN
#define WRAP_COLUMN 79 /* When to wrap error messages to next line */
#endif
#ifndef DEF_IDLETTER_LIST /* default nonalnums allowed in identifiers */
#define DEF_IDLETTER_LIST "$_"
#endif
/* The following defines used to be optional, now they
are standard. If these defines are removed or
undef'd, the corresponding syntax will not be
recognized (resulting in parse errors). I don't
recommend undefining them. They are all warned about
by -f77 */
#define ALLOW_CRAY_POINTERS 1
#define ALLOW_DO_ENDDO 1
#define ALLOW_INCLUDE 1
#define ALLOW_QUOTEMARKS 1
#define ALLOW_TYPELESS_CONSTANTS 1
#define ALLOW_UNIX_BACKSLASH 1
#define ALLOW_UNIX_CPP 1
#define ALLOW_VMS_IO 1
#define ALLOW_IBM_IO 1
#define INLINE_COMMENT_CHAR '!' /* Inline comments start with '!' */
#define KEEP_ARG_NAMES 1 /* option was formerly experimental */
/* SMALL_INT_VALUE is an integer that is small enough that
we don't need to worry if it is assigned to a small-size
int, for purposes of catching truncation errors. We
conservatively use maximum signed 8-bit byte value.
*/
#ifndef SMALL_INT_VALUE
#define SMALL_INT_VALUE 127
#endif
#ifdef DEVELOPMENT /* For maintaining the program */
#define DEBUG_FORLEX
#endif
/*************************************************************************
End section of defines to control ftnchek's behavior
Begin section to define limits, table sizes, etc.
**************************************************************************/
#ifndef MAXLINE
#define MAXLINE 132 /* Maximum input line length. Ignores past this. */
#endif
#ifndef MAXIDSIZE
#define MAXIDSIZE 31 /* Longest identifier allowed */
#endif
#ifndef MAX_SRC_TEXT
#define MAX_SRC_TEXT (20*66) /* Longest text string of a token */
#endif
#ifndef MAX_CHAR_CODE
#define MAX_CHAR_CODE 255 /* Largest possible value of a char (8 bits here) */
#endif
#ifndef MAX_INCLUDE_DEPTH
#define MAX_INCLUDE_DEPTH 16 /* Max nesting depth of include files */
#endif
#ifndef MAXEXPRTEXT
#define MAXEXPRTEXT 15 /* length of expr text saved in arg lists */
#endif
#ifndef MAX_RC_LINE
#define MAX_RC_LINE 500 /* Max length of line in rc file */
#endif
#ifndef RC_COMMENT_CHAR
#define RC_COMMENT_CHAR '#' /* Comments start with this or space */
#endif
/* Definitions of table sizes
Constraints:
STRSPACESZ > 20*72 so max f77 statement will fit
LOCSYMTABSZ+GLOBSYMTABSZ < HASHSZ so hashtab never full
*/
#define KEYHASHSZ 195 /* Size of keyword hashtable -- do not change */
#define INTRINS_HASHSZ 433 /* Chosen to give few clashes -- change with care */
#ifdef SMALL_MACHINE /* Use these for e.g. IBM PC */
#ifndef HASHSZ /* Hint: pick one with no square factors */
#define HASHSZ 798 /* SMALL_MACHINE Size of symbol hashtable */
#endif
#ifndef STRSPACESZ
#define STRSPACESZ 4000 /* SMALL_MACHINE chunk size of string space */
#endif
#ifndef LOCSYMTABSZ
#define LOCSYMTABSZ 300 /* SMALL_MACHINE Size of local symbol table */
#endif
#ifndef GLOBSYMTABSZ
#define GLOBSYMTABSZ 400 /* SMALL_MACHINE Size of global symbol table */
#endif
#ifndef PARAMINFOSPACESZ
#define PARAMINFOSPACESZ 20 /* SMALL_MACHINE ParamInfo structs per chunk */
#endif
#ifndef TOKHEADSPACESZ
#define TOKHEADSPACESZ 50 /* SMALL_MACHINE TokenListHeaders per chunk */
#endif
#ifndef TOKENSPACESZ
#define TOKENSPACESZ 200 /* SMALL_MACHINE tokens per token space chunk */
#endif
#ifndef ARGLISTHEADSZ
#define ARGLISTHEADSZ 300 /* SMALL_MACHINE argument headers per chunk */
#endif
#ifndef ARGLISTELTSZ
#define ARGLISTELTSZ 1000 /* SMALL_MACHINE argument list elts per chunk */
#endif
#ifndef COMLISTHEADSZ
#define COMLISTHEADSZ 200 /* SMALL_MACHINE common list headers per chunk */
#endif
#ifndef COMLISTELTSZ
#define COMLISTELTSZ 1000 /* SMALL_MACHINE common elts per chunk */
#endif
#ifndef PTRSPACESZ
#define PTRSPACESZ 200 /* SMALL_MACHINE ptrs-to-arraydim per chunk */
#endif
#ifndef LABTABLE_SIZE
#define LABTABLE_SIZE 109 /* SMALL_MACHINE initial size of label table */
#endif
#ifndef REF_LISTS_SIZE
#define REF_LISTS_SIZE 200 /* SMALL_MACHINE Lab_ref_lists per chunk*/
#endif
#ifndef IO_UNIT_INFO_SIZE
#define IO_UNIT_INFO_SIZE 50 /* SMALL_MACHINE initial size of I/O unit info table */
#endif
#else /* end if SMALL_MACHINE */
#ifdef MEDIUM_MACHINE /* use these if default is too big */
#ifndef HASHSZ
#define HASHSZ 2002 /* MEDIUM_MACHINE Size of symbol hashtable */
#endif
#ifndef STRSPACESZ
#define STRSPACESZ 10000 /* MEDIUM_MACHINE chunk size of string space */
#endif
#ifndef LOCSYMTABSZ
#define LOCSYMTABSZ 800 /* MEDIUM_MACHINE Size of local symbol table */
#endif
#ifndef GLOBSYMTABSZ
#define GLOBSYMTABSZ 1200 /* MEDIUM_MACHINE Size of global symbol table */
#endif
#ifndef PARAMINFOSPACESZ
#define PARAMINFOSPACESZ 50 /* MEDIUM_MACHINE ParamInfo structs per chunk */
#endif
#ifndef TOKHEADSPACESZ
#define TOKHEADSPACESZ 200 /* MEDIUM_MACHINE TokenListHeaders per chunk */
#endif
#ifndef TOKENSPACESZ
#define TOKENSPACESZ 1000 /* MEDIUM_MACHINE tokens per token space chunk */
#endif
#ifndef ARGLISTHEADSZ
#define ARGLISTHEADSZ 1500 /* MEDIUM_MACHINE argument headers per chunk */
#endif
#ifndef ARGLISTELTSZ
#define ARGLISTELTSZ 5000 /* MEDIUM_MACHINE argument list elts per chunk */
#endif
#ifndef COMLISTHEADSZ
#define COMLISTHEADSZ 1000 /* MEDIUM_MACHINE common list headers per chunk */
#endif
#ifndef COMLISTELTSZ
#define COMLISTELTSZ 4000 /* MEDIUM_MACHINE common elts per chunk */
#endif
#ifndef PTRSPACESZ
#define PTRSPACESZ 400 /* MEDIUM_MACHINE Max number of ptrs to arraydim */
#endif
#ifndef LABTABLE_SIZE
#define LABTABLE_SIZE 209 /* MEDIUM_MACHINE initial size of labtable */
#endif
#ifndef REF_LISTS_SIZE
#define REF_LISTS_SIZE 400 /* MEDIUM_MACHINE Lab_ref_lists per chunk*/
#endif
#ifndef IO_UNIT_INFO_SIZE
#define IO_UNIT_INFO_SIZE 200 /* MEDIUM_MACHINE initial size of I/O unit info table */
#endif
#else /* Default is now LARGE_MACHINE, OK for most modern machines */
#ifndef HASHSZ /* must be <= max int */
#define HASHSZ 20930 /* LARGE_MACHINE Size of symbol hashtable */
#endif
#ifndef STRSPACESZ
#define STRSPACESZ 10000 /* LARGE_MACHINE chunk size of string space */
#endif
#ifndef LOCSYMTABSZ
#define LOCSYMTABSZ 8000 /* LARGE_MACHINE Size of local symbol table */
#endif
#ifndef GLOBSYMTABSZ
#define GLOBSYMTABSZ 12000 /* LARGE_MACHINE Size of global symbol table */
#endif
#ifndef PARAMINFOSPACESZ
#define PARAMINFOSPACESZ 200 /* LARGE_MACHINE ParamInfo structs per chunk */
#endif
#ifndef TOKHEADSPACESZ
#define TOKHEADSPACESZ 500 /* LARGE_MACHINE TokenListHeaders per chunk */
#endif
#ifndef TOKENSPACESZ
#define TOKENSPACESZ 10000 /* LARGE_MACHINE tokens per token space chunk */
#endif
#ifndef ARGLISTHEADSZ
#define ARGLISTHEADSZ 15000 /* LARGE_MACHINE argument headers per chunk */
#endif
#ifndef ARGLISTELTSZ
#define ARGLISTELTSZ 50000 /* LARGE_MACHINE argument list elts per chunk */
#endif
#ifndef COMLISTHEADSZ
#define COMLISTHEADSZ 10000 /* LARGE_MACHINE common list headers per chunk */
#endif
#ifndef COMLISTELTSZ
#define COMLISTELTSZ 50000 /* LARGE_MACHINE common elts per chunk */
#endif
#ifndef PTRSPACESZ
#define PTRSPACESZ 2000 /* LARGE_MACHINE Max number of ptrs to arraydim */
#endif
#ifndef LABTABLE_SIZE
#define LABTABLE_SIZE 299 /* LARGE_MACHINE initial size of labtable */
#endif
#ifndef REF_LISTS_SIZE
#define REF_LISTS_SIZE 2000 /* LARGE_MACHINE Lab_ref_lists per chunk*/
#endif
#ifndef IO_UNIT_INFO_SIZE
#define IO_UNIT_INFO_SIZE 500 /* LARGE_MACHINE initial size of I/O unit info table */
#endif
#endif /* end if LARGE_MACHINE else */
#endif/*end if SMALL_MACHINE else*/
/*************************************************************************
End of section to define limits, table sizes, etc.
From here down should not be altered.
**************************************************************************/
#define FALSE 0
#define TRUE 1
/* Make sure line numbers use 32 bits */
#if SIZEOF_INT >= 4
typedef unsigned LINENO_t;
#else
typedef unsigned long LINENO_t;
#endif
typedef unsigned COLNO_t;
#define NO_COL_NUM ((COLNO_t)999)/* Impossible column number to suppress
* printing in error messages
*/
#define GLOBAL_NO_COL_NUM ((LINENO_t)998)/* Ditto for global-level warnings */
#define NO_LINE_NUM ((LINENO_t)0)/* Ditto for line number to suppress flushing
* of line if error not in local context
*/
#define OOPS_NONFATAL 0 /* Severity of "oops" messages */
#define OOPS_FATAL 1
/*************************************************************************
Shared variable and function defns start here
**************************************************************************/
#ifdef MAIN
#define SHARED /* (nothing) */
#else
#define SHARED extern /* Non-main routines declare shared vars extern */
#endif
#define PRIVATE static /* For non-shared functions */
/* Except when DEBUG_FORLEX is turned on, ftnchek has no need
of floating-point calculations, so to allow it to run on
machines without coprocessor, we neutralize the few
floating-point operations that there are. */
#ifndef DEBUG_FORLEX
#ifndef NO_FLOATING_POINT
#define NO_FLOATING_POINT
#endif
#endif
#ifdef NO_FLOATING_POINT
typedef long DBLVAL;
#else
typedef double DBLVAL;
#endif
SHARED FILE
*input_fd, /* Input file */
*list_fd, /* Output file for listing */
*dcl_fd, /* Output type declaration file */
*html_fd, /* Output file for HTML documentation */
*htmlcalltree_fd, /* Output file for html call tree documentation */
#ifdef VCG_SUPPORT
*vcg_fd, /* Output VCG graph description file */
#endif
*project_fd;/* Project file for symtab info summary */
SHARED char *html_filename; /* name of the html documentation file */
SHARED char *htmlcalltree_filename; /* name of the html call tree doc file */
SHARED char *current_filename, /* name of current input file */
*top_filename; /* name of toplevel parent input file */
SHARED int incdepth;
#ifdef VCG_SUPPORT
SHARED char *main_filename; /* name of file containing main program */
#endif
/*****************************************************************/
/* Declare variables for command line options */
/*****************************************************************/
#ifdef MAIN
#define OPT(Type,Name,Value) Type Name=Value
#else
#define OPT(Type,Name,Value) extern Type Name
#endif
/* These options are controlled by -arguments */
OPT(int,argcheck_argnumber,ARGCHECK_ALL);/* Check for wrong no. of args */
OPT(int,argcheck_arrayness,ARGCHECK_ALL);/* Check arg arrayness mismatches */
OPT(int,argcheck_argtype,ARGCHECK_ALL); /* Check for arg type mismatches */
OPT(int,argcheck_functype,ARGCHECK_ALL); /* Check for func type mismatches */
/* End of -arguments options */
/* These options are controlled by -array */
OPT(int,arraycheck_dims,ARRAYCHECK_ALL);/* Check for mismatch no.of dims */
OPT(int,arraycheck_size,ARRAYCHECK_ALL);/* Check for mismatch no.of elements */
/* End of -array options */
/* These options are controlled by -calltree */
OPT(int,print_call_tree,FALSE); /* Print the call tree */
OPT(int,print_ref_list,FALSE); /* Print reference (who-calls-who) list */
#ifdef VCG_SUPPORT
OPT(int,print_vcg_list,FALSE); /* Print call graph in vcg format */
#endif
OPT(int,call_tree_prune,TRUE); /* do not repeat duplicates, use "see above" */
OPT(int,call_tree_sort,TRUE); /* alphabetized, not program order */
/* End of -calltree options */
/* These options are controlled by -crossref */
OPT(int,print_xref_list,FALSE); /* print subprogram cross-references */
OPT(int,print_com_xrefs,FALSE); /* print common block cross-refs */
OPT(int,print_lab_refs,FALSE); /* print label cross-references */
/* End of -crossref options */
/* These options are controlled by -common */
OPT(int,comcheck_type,COMCHECK_ALL);/* Check for type mismatch */
OPT(int,comcheck_length,COMCHECK_ALL);/* Check for length mismatch */
OPT(int,comcheck_dims,COMCHECK_ALL);/* Check for array dim mismatch */
OPT(int,comcheck_by_name,COMCHECK_ALL);/* Check name-by-name */
OPT(int,comcheck_volatile,FALSE); /* Assume blocks are "volatile" */
/* End of -common options */
/* These options are controlled by -f77 */
OPT(int,f77_20_continue,F77_ALL);
OPT(int,f77_accept_type,F77_ALL);
OPT(int,f77_assignment,F77_ALL);
OPT(int,f77_array_bounds,F77_ALL);
OPT(int,f77_attrbased_typedecl,F77_ALL);
OPT(int,f77_automatic_array,F77_ALL);
OPT(int,f77_byte,F77_ALL);
OPT(int,f77_case_construct,F77_ALL);
OPT(int,f77_char_extension,F77_ALL);
OPT(int,f77_cray_pointers,F77_ALL);
OPT(int,f77_common_subprog_name,F77_ALL);
OPT(int,f77_construct_name,F77_ALL);
OPT(int,f77_cycle_exit,F77_ALL);
OPT(int,f77_d_comment,F77_ALL);
OPT(int,f77_dec_tabs,F77_ALL);
OPT(int,f77_do_enddo,F77_ALL);
OPT(int,f77_dollarsigns,F77_ALL);
OPT(int,f77_double_complex,F77_ALL);
OPT(int,f77_format_dollarsigns,F77_ALL);
OPT(int,f77_format_extensions,F77_ALL);
OPT(int,f77_function_noparen,F77_ALL);
OPT(int,f77_implicit_none,F77_ALL);
OPT(int,f77_include,F77_ALL);
OPT(int,f77_initializers,F77_ALL);
OPT(int,f77_inline_comment,F77_ALL);
OPT(int,f77_internal_list_io,F77_ALL);
OPT(int,f77_intrinsics,F77_ALL);
OPT(int,f77_io_keywords,F77_ALL);
OPT(int,f77_long_names,F77_ALL);
OPT(int,f77_mixed_common,F77_ALL);
OPT(int,f77_mixed_expr,F77_ALL);
OPT(int,f77_namelist,F77_ALL);
OPT(int,f77_overlength,F77_ALL);
OPT(int,f77_param_implicit_type,F77_ALL);
OPT(int,f77_param_intrinsic,F77_ALL);
OPT(int,f77_param_noparen,F77_ALL);
OPT(int,f77_pointers,F77_ALL);
OPT(int,f77_quad_constants,F77_ALL);
OPT(int,f77_quotemarks,F77_ALL);
OPT(int,f77_relops,F77_ALL);
OPT(int,f77_semicolon,F77_ALL);
OPT(int,f77_stmt_order,F77_ALL);
OPT(int,f77_typeless_constants,F77_ALL);
OPT(int,f77_typesize,F77_ALL);
OPT(int,f77_underscores,F77_ALL);
OPT(int,f77_unix_backslash,F77_ALL);
OPT(int,f77_unix_cpp,F77_ALL);
OPT(int,f77_variable_format,F77_ALL);
/* End of -f77 options */
/* These options are controlled by -f90 */
OPT(int,f90_accept_type,F90_ALL);
OPT(int,f90_byte,F90_ALL);
OPT(int,f90_continue,F90_ALL);
OPT(int,f90_cray_pointers,F90_ALL);
OPT(int,f90_d_comment,F90_ALL);
OPT(int,f90_dec_tabs,F90_ALL);
OPT(int,f90_dollarsigns,F90_ALL);
OPT(int,f90_double_complex,F90_ALL);
OPT(int,f90_format_dollarsigns,F90_ALL);
OPT(int,f90_format_extensions,F90_ALL);
OPT(int,f90_function_noparen,F90_ALL);
OPT(int,f90_initializers,F90_ALL);
OPT(int,f90_intrinsics,F90_ALL);
OPT(int,f90_io_keywords,F90_ALL);
OPT(int,f90_mixed_expr,F90_ALL);
OPT(int,f90_overlength,F90_ALL);
OPT(int,f90_param_implicit_type,F90_ALL);
OPT(int,f90_param_noparen,F90_ALL);
OPT(int,f90_quad_constants,F90_ALL);
OPT(int,f90_stmt_order,F90_ALL);
OPT(int,f90_typeless_constants,F90_ALL);
OPT(int,f90_typesize,F90_ALL);
OPT(int,f90_unix_backslash,F90_ALL);
OPT(int,f90_unix_cpp,F90_ALL);
OPT(int,f90_variable_format,F90_ALL);
/* Abuse of blank space in free format is not treated as a supported
extension to F90 but as a syntax error. Thus it is on by default. */
#define f90_freeform_space misc_warn
/* End of -f90 options */
/* These options are controlled by -f95 */
OPT(int,f95_real_do,F95_ALL); /* real or d.p. DO variable */
OPT(int,f95_pause,F95_ALL); /* PAUSE stmt */
OPT(int,f95_assign,F95_ALL); /* ASSIGN stmt & kin */
OPT(int,f95_Hedit,F95_ALL); /* H edit descriptor */
/* End of -f95 options */
/* These options are controlled by -makedcls */
OPT(int,dcl_declarations,FALSE);
OPT(int,dcl_only_undeclared,FALSE);
OPT(int,dcl_compact,FALSE);
OPT(int,dcl_use_continuations,FALSE);
OPT(int,dcl_keywords_lowercase,FALSE);
OPT(int,dcl_vars_and_consts_lowercase,FALSE);
OPT(int,dcl_excl_sftran3_internal_vars,FALSE);
OPT(int,dcl_asterisk_comment_character,FALSE);
OPT(int,dcl_lowercase_comment_character,FALSE);
OPT(int,dcl_no_array_dimensions,FALSE);
OPT(int,dcl_free_form,FALSE);
/* End of -makedcls options */
/* These options are controlled by -mkhtml */
OPT(int,html_documents,FALSE);
OPT(int,html_only_undeclared,FALSE);
OPT(int,html_compact,FALSE);
OPT(int,html_use_continuations,FALSE);
OPT(int,html_keywords_lowercase,FALSE);
OPT(int,html_vars_and_consts_lowercase,FALSE);
OPT(int,html_excl_sftran3_internal_vars,FALSE);
OPT(int,html_no_array_dimensions,FALSE);
OPT(int,html_free_form,FALSE);
/* End of -makedcls options */
/* These options are controlled by -portability */
OPT(int,port_common_alignment,PORT_ALL);/* Common not in desc size order */
OPT(int,port_backslash,PORT_ALL); /* Backslash used in standard way */
OPT(int,port_real_do,PORT_ALL); /* Non-integer DO loop bounds */
OPT(int,port_long_string,PORT_ALL); /* Char string > 255 in length */
OPT(int,port_hollerith,PORT_ALL); /* Hollerith (except in FORMAT) */
OPT(int,port_mixed_equiv,PORT_ALL); /* Different types equivalenced */
OPT(int,port_mixed_size,PORT_ALL); /* sized, nonsized types mixed */
OPT(int,port_param_implicit_type,PORT_ALL);/* Implicit param type != default */
OPT(int,port_tabs,PORT_ALL); /* Tabs in source */
/* End of -portability options */
/* These options are controlled by -pretty */
OPT(int,pretty_alt_return,PRETTY_ALL);/* alternate return out of range */
OPT(int,pretty_multiple_common,PRETTY_ALL);/* COMMON decl in multiple stmts */
OPT(int,pretty_multiple_namelist,PRETTY_ALL);/* NAMELIST decl in multiple stmts */
OPT(int,pretty_parens,PRETTY_ALL); /* Parentheses around a variable */
OPT(int,pretty_overlength,PRETTY_ALL); /* Lines over 72 columns */
OPT(int,pretty_extra_space,PRETTY_ALL); /* Spaces in identifiers */
OPT(int,pretty_no_space,PRETTY_ALL); /* Space missing btw id and keyword */
OPT(int,pretty_contin,PRETTY_ALL); /* Continuation mark after comment */
/* End of -pretty options */
/* These options are controlled by -project */
OPT(int,make_project_file,FALSE);/* Save symtab defns in .prj file */
OPT(int,proj_trim_calls,TRUE); /* Keep min no of calls in project file */
OPT(int,proj_trim_common,TRUE); /* Keep min no of block decls in proj file */
/* End of -project options */
/* These options are controlled by -source */
OPT(int,source_dec_tab,DEC_TABS); /*DEC Fortran tab-format*/
OPT(int,source_vms_include,VMS_INCLUDE); /*VMS INCLUDE statement*/
OPT(int,source_unix_backslash,UNIX_BACKSLASH); /*UNIX backslash escape*/
OPT(int,source_dec_param_std_type,DEC_PARAMETER_STANDARD_TYPE);
OPT(int,source_param_implicit,PARAMETER_IMPLICIT_TYPE);/* std params */
OPT(int,source_fixed_form,FALSE); /* force fixed format (see Note) */
OPT(int,source_free_form,FALSE); /* force free format (see Note) */
/* Note: actual flag variable used to specify source form is
free_form in forlex.h. It is set by init_scan based on
filename extension (.f or .f90), overridden by
source_fixed_format or source_free_format if set.*/
/* end of -source options */
/* These options are controlled by -style */
/* require subprog END stmts to specify subprog class */
OPT(int,style_req_structured_end,STYLECHECK_ALL);
/* require names on structured END stmts */
OPT(int,style_req_end_name,STYLECHECK_ALL);
/* require names on IF, DO, and SELECT CASE constructs */
OPT(int,style_req_construct_name,STYLECHECK_ALL);
/* require main prog to start with PROGRAM stmt */
OPT(int,style_req_prog_stmt,STYLECHECK_ALL);
/* require use of block IF or logical IF */
OPT(int,style_req_block_if,STYLECHECK_ALL);
/* require use of ENDDO with DO */
OPT(int,style_req_enddo,STYLECHECK_ALL);
/* require use of ENDDO or CONTINUE with DO */
OPT(int,style_req_do_construct,STYLECHECK_ALL);
/* no shared DO loop terminators */
OPT(int,style_shared_do_terminator,STYLECHECK_ALL);
/* GOTO in all its forms */
OPT(int,style_goto,STYLECHECK_ALL);
/* Labeled stmt other than FORMAT */
OPT(int,style_labeled_exec,STYLECHECK_ALL);
/* Labeled FORMAT stmt */
OPT(int,style_labeled_format,STYLECHECK_ALL);
/* End of -style options */
/* These options are controlled by -truncation */
OPT(int,trunc_int_div_real,TRUNC_ALL); /* Int/int --> real */
OPT(int,trunc_int_div_exponent,TRUNC_ALL);/* Int/int as exponentl */
OPT(int,trunc_int_div_zero,TRUNC_ALL); /* Int/int const = 0 */
OPT(int,trunc_int_neg_power,TRUNC_ALL); /* Int**(-int) */
OPT(int,trunc_real_subscript,TRUNC_ALL);/* Real array subscript */
OPT(int,trunc_real_do_index,TRUNC_ALL); /* Real DO index with int bounds */
OPT(int,trunc_type_demotion,TRUNC_ALL); /* High --> low precision */
OPT(int,trunc_size_demotion,TRUNC_ALL); /* High --> low precision */
OPT(int,trunc_promotion,TRUNC_ALL); /* Low --> high precision */
OPT(int,trunc_sigfigs,TRUNC_ALL); /* Sngl const overspecified */
/* truncation warnings related to precision */
#define trunc_precision (trunc_promotion||trunc_type_demotion||trunc_size_demotion)
/* End of -truncation options */
/* These options are controlled by -usage */
OPT(int,usage_arg_modified,USAGE_ALL); /* const or expr arg modified */
OPT(int,usage_arg_alias_modified,USAGE_ALL); /* arg same-as other modified */
OPT(int,usage_array_alias_modified,USAGE_ALL);/* arg in same array as other modified */
OPT(int,usage_arg_common_modified,USAGE_ALL); /* arg in common modified */
OPT(int,usage_array_common_modified,USAGE_ALL); /* array arg in common modified */
OPT(int,usage_arg_unused,USAGE_ALL); /* arg declared but not used */
OPT(int,usage_com_block_unused,USAGE_ALL); /* whole block declared but not used */
OPT(int,usage_com_block_volatile,USAGE_ALL); /* block may lose defn */
OPT(int,usage_com_var_set_unused,USAGE_ALL); /* set but not used */
OPT(int,usage_com_var_uninitialized,USAGE_ALL);/* used but not set */
OPT(int,usage_com_var_unused,USAGE_ALL); /* declared but not used */
OPT(int,usage_do_var_modified,USAGE_ALL); /* DO index var modified */
OPT(int,usage_ext_declared_only,USAGE_ALL); /* declared EXTERNAL but not defined or used */
OPT(int,usage_ext_multiply_defined,USAGE_ALL);/* multiple definitions */
OPT(int,usage_ext_undefined,USAGE_ALL); /* used but not defined (= -external flag) */
OPT(int,usage_ext_unused,USAGE_ALL); /* defined but not used (like -library flag) */
OPT(int,usage_label_undefined,USAGE_ALL); /* label used but undefined */
OPT(int,usage_label_unused,USAGE_ALL); /* label defined but unused */
OPT(int,usage_var_set_unused,USAGE_ALL); /* set but not used */
OPT(int,usage_var_uninitialized,USAGE_ALL); /* used before set */
OPT(int,usage_var_unused,USAGE_ALL); /* declared but not used */
/* End of -usage options */
/* The following flag is for warnings not covered by other flags,
so that all warnings can be turned off by -nocheck. */
OPT(int,misc_warn,TRUE);
/* The following variables are controlled by command line options */
OPT(int,do_check,TRUE); /* For -nocheck option */
OPT(int,decls_required,FALSE); /* List all undeclared identifiers */
OPT(int,div_check,FALSE); /* Check for possible division by zero */
OPT(int,ext_def_check,TRUE); /* Check defined status of externals*/
OPT(int,help_screen,FALSE); /* Print out help screen */
OPT(int,library_mode,FALSE); /* Set used-flag for all modules in file */
OPT(int,brief,FALSE); /* Briefer form of local error messages */
OPT(int,do_list,FALSE); /* Listing flag */
OPT(int,novice_help,TRUE); /* Extra help for novices */
OPT(int,pure_functions,TRUE); /* Assume functions are pure */
OPT(int,quiet,FALSE); /* Less verbose output format */
OPT(int,sixclash,FALSE); /* To check if names unique in 1st 6 chars */
OPT(int,print_topo_sort,FALSE); /* Topological sort of modules */
OPT(int,do_symtab,FALSE); /* For symbol table printout */
OPT(int,print_version,FALSE); /* Print version number and quit */
/* Debugging flags */
OPT(int,debug_latest,FALSE); /* debug the latest addition */
OPT(int,debug_glob_symtab,FALSE);/* global symtab contents */
OPT(int,debug_parser,FALSE); /* grammar debug via DBG statements */
OPT(int,debug_hashtab,FALSE); /* hash table contents */
OPT(int,debug_loc_symtab,FALSE); /* local symtab contents */
OPT(int,show_resources,FALSE); /* space avail and used */
#if defined(DEBUG_FORLEX) || defined(DEBUG_IS_KEYWORD)
OPT(int,debug_lexer,FALSE); /* list of tokens as scanned */
#endif
/* Declare variables for commandline settings */
OPT(int,call_tree_options,0); /* Sum of: 1 (print it), */
/* 2 (who-calls-who form), 4 (don't prune) */
/* 8 (program order), 16 (VCG format) */
#ifndef STANDARD_INTRINSICS
/* -intrinsic setting defaults */
OPT(int,intrinsic_rand_no_argument,(DEF_INTRINSIC_RAND & 1)==1); /* rand form */
OPT(int,intrinsic_rand_one_argument,(DEF_INTRINSIC_RAND & 2)==2);
OPT(int,intrinsic_iargc_no_argument,(DEF_INTRINSIC_IARGC & 1)==1);/* iargc form */
OPT(int,intrinsic_iargc_one_argument,(DEF_INTRINSIC_IARGC & 2)==2);
OPT(int,intrinsic_set_extra,(DEF_INTRINSIC_SET & 1)==1);/* common intrinsics */
OPT(int,intrinsic_set_unix,(DEF_INTRINSIC_SET & 2)==2);/* some unix intrinsics */
OPT(int,intrinsic_set_vms,(DEF_INTRINSIC_SET & 4)==4);/* some vms intrinsics */
#endif /* not STANDARD_INTRINSICS */
OPT(int,fixed_max_stmt_col,72); /* End of fixed-form statement field ( <= MAXLINE )*/
OPT(int,error_cascade_limit,DEF_ERROR_CASCADE_LIMIT);/* max errors in cascade */
OPT(int,local_ptrsize,PTRSIZE); /* Size of Cray pointer variables */
OPT(int,given_ptrsize,PTRSIZE); /* Size requested for Cray pointer variables */
OPT(int,local_wordsize,BpW); /* Bytes per word to use for default sizes */
OPT(int,given_wordsize,BpW); /* User's request as per -wordsize=n */
OPT(int,wrap_column,WRAP_COLUMN);/* For wrapping error messages */
/* Shorthands for checking control settings */
#define usage_com_any (usage_com_block_unused || usage_com_var_set_unused \
|| usage_com_var_uninitialized || usage_com_var_unused)
#define COMCHECK_OFF (!(comcheck_by_name||comcheck_type||comcheck_length))
#define check_com_tree (comcheck_volatile&&usage_com_block_volatile) /* Check undef errors */
#define full_output (do_list || do_symtab)
#define ANY_DCL_DECLARATIONS() (dcl_declarations\
||dcl_only_undeclared\
||dcl_compact||dcl_use_continuations\
||dcl_keywords_lowercase\
||dcl_vars_and_consts_lowercase\
||dcl_excl_sftran3_internal_vars\
||dcl_asterisk_comment_character\
||dcl_lowercase_comment_character\
||dcl_no_array_dimensions\
||dcl_free_form\
)
#define ANY_HTML_DECLARATIONS() (html_documents\
||html_only_undeclared\
||html_compact||html_use_continuations\
||html_keywords_lowercase\
||html_vars_and_consts_lowercase\
||html_excl_sftran3_internal_vars\
||html_no_array_dimensions\
||html_free_form\
)
/* Declare variables for commandline StrSettings */
OPT(char*,out_fname,(char *)NULL); /* Output filename */
#ifdef ALLOW_INCLUDE
OPT(char*,include_path,(char *)NULL); /* An include-file directory */
#endif
OPT(char*,idletter_list,DEF_IDLETTER_LIST);/* non-alpha chars allowed in identifiers */
SHARED LINENO_t
line_num, /* line num of current char */
next_line_num; /* line num of lookahead char */
SHARED COLNO_t
col_num, /* column num of current char */
next_col_num; /* column num of lookahead char */
SHARED unsigned
error_count, /* Count of syntax error messages per file */
warning_count; /* Count of warning messages per file */
SHARED char *
tab_filename; /* Filename where there are tabs for -port */
/* Resource usage information: */
SHARED unsigned long
tot_line_count, /* total source lines (stmts + comments) */
tot_stmt_line_count,/* total source stmt lines */
tot_exec_stmt_count,/* count of executable stmts in program */
tot_module_count, /* count of subprograms in program */
tot_label_count, /* total number of statement labels defined */
exec_stmt_count, /* count of executable stmts in module */
max_exec_stmt_count,/* max number of executable stmts in any module */
max_loc_strings, /* chars of local stringspace used */
max_srctextspace, /* chars of source text space used */
max_paraminfo, /* number of param info structs used */
max_tokenlists, /* number of tokenlists constructed */
max_token_space, /* number of tokens used */
max_ptrspace, /* number of pointers used */
max_labels, /* maximum no. of labels in any subprog */
glob_strings_used, /* chars of global stringspace used */
arglist_element_used, /* arg array elements used */
arglist_head_used, /* arg heads used (1 per call) */
comlist_element_used, /* com array elements used */
comlist_head_used; /* com heads used (1 per defn) */
SHARED long
max_loc_symtab, /* number of local symtab entries used */
max_glob_symtab; /* number of global symtab entries used */
SHARED int
equivalence_flag, /* true while parsing EQUIVALENCE statement */
initial_flag, /* true while only label or initial keywords read */
implicit_flag, /* true while parsing IMPLICIT statement */
implicit_letter_flag, /* true while getting letters in IMPLICIT list */
implicit_type_given,/* true if IMPLICIT type statement found */
implicit_none, /* true if IMPLICIT NONE statement found */
prev_token_class, /* token class of last-returned token */
curr_stmt_class; /* Token class of current stmt's leading token */
/* flag for error messages to behave differently in global cases */
SHARED int doing_wrapup;
/* ditto for local cases */
SHARED int doing_end_proc;
/* Define linked-list structure for include-path list */
#ifdef ALLOW_INCLUDE
typedef struct IPNode {
struct IPNode *link; /* next path on the list */
char *include_path; /* one path (full directory name) */
} IncludePathNode;
SHARED IncludePathNode *include_path_list; /* header to the list */
#endif
/* Declare routines shared with main module ftnchek.c */
/* in exprtype.c */
PROTO(void init_typesizes, ( void ));
/* in ftnchek.c */
PROTO( char * add_ext,( char *s, const char *ext ));
PROTO( int has_extension,( const char *name, const char *ext ));
/* in forlex.c and advance.c */
PROTO(void make_legal_char_list, ( void ));
PROTO(void finish_scan, ( void ));
PROTO(int flush_line_out, ( LINENO_t n ));
PROTO(int flush_end_stmt, ( LINENO_t n ));
PROTO(void init_keyhashtab, ( void ));
PROTO(void init_scan, ( void ));
PROTO(void init_stream,( void ));
/* in include.c */
PROTO(void open_include_file, ( char *fname, LINENO_t include_line_num ));
PROTO(int pop_include_file,( void ));
/* in fortran.y/fortran.c */
PROTO(void init_parser, ( void ));
PROTO(int yyparse, ( void ));
/* in message.c */
PROTO(void msg_tail, ( const char *s ));
PROTO(void nonportable, ( LINENO_t lineno, COLNO_t colno, const char *s ));
PROTO(void nonstandard, ( LINENO_t lineno, COLNO_t colno, int f90, int f95 ));
PROTO(void oops_message, ( int severity, LINENO_t lineno, COLNO_t colno, const char *s ));
PROTO(void oops_tail, ( const char *s ));
PROTO(void print_a_line, ( FILE *fd, const char *line, LINENO_t num ));
PROTO(void syntax_error, ( LINENO_t lineno, COLNO_t colno, const char *s ));
PROTO(void ugly_code, ( LINENO_t lineno, COLNO_t colno, const char *s ));
PROTO(void warning, ( LINENO_t lineno, COLNO_t colno, const char *s ));
PROTO(void local_message, ( const char *filename, LINENO_t lineno, const char *s, const char *tag ));
PROTO(void global_warning, ( const char *filename, LINENO_t lineno, const char *s ));
PROTO(void global_message, ( const char *filename, LINENO_t lineno, const char *s ));
PROTO(void lex_error, (const char *s ));
PROTO(void yyerror, ( const char *s ));
PROTO(char* ulongtostr, (unsigned long num));
/* Maximum length of a longtostr() result */
#define MAX_ULONGTOSTR (3*sizeof(unsigned long))
/* in pgsymtab.c */
PROTO(void check_arglists, ( void ));
PROTO(void check_comlists, ( void ));
PROTO(void check_com_usage, ( void ));
PROTO(void visit_children, ( void ));
/* in plsymtab.c */
PROTO(void debug_symtabs, ( void ));
/* in project.c */
PROTO(void proj_file_out, ( FILE *fd ));
PROTO(void proj_file_in, ( FILE *fd ));
/* in symtab.c */
PROTO(void init_tables, ( void ));
PROTO(void init_globals, ( void ));
PROTO(void init_symtab, ( void ));
PROTO(void note_filename, ( char *s ));
#ifdef DEBUG_SIZES
PROTO(void print_sizeofs, ( void ));
#endif
/* Misc. useful defines */
#undef MAX
#define MAX(X,Y) ((X)>(Y)?(X):(Y))
|