Mock Version: 5.5 Mock Version: 5.5 Mock Version: 5.5 ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --noclean --target loongarch64 --nodeps /builddir/build/SPECS/f2c.spec'], chrootPath='/home/lib/ocmock/dist-oc9-epol-build-183146-80196/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'C.UTF-8'}shell=Falselogger=timeout=86400uid=983gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False) Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bs --noclean --target loongarch64 --nodeps /builddir/build/SPECS/f2c.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'C.UTF-8'} and shell False Building target platforms: loongarch64 Building for target loongarch64 Wrote: /builddir/build/SRPMS/f2c-20210928-2.oc9.src.rpm Child return code was: 0 ENTER ['do_with_status'](['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --noclean --target loongarch64 --nodeps /builddir/build/SPECS/f2c.spec'], chrootPath='/home/lib/ocmock/dist-oc9-epol-build-183146-80196/root'env={'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'C.UTF-8'}shell=Falselogger=timeout=86400uid=983gid=135user='mockbuild'nspawn_args=[]unshare_net=TrueprintOutput=False) Executing command: ['bash', '--login', '-c', '/usr/bin/rpmbuild -bb --noclean --target loongarch64 --nodeps /builddir/build/SPECS/f2c.spec'] with env {'TERM': 'vt100', 'SHELL': '/bin/bash', 'HOME': '/builddir', 'HOSTNAME': 'mock', 'PATH': '/usr/bin:/bin:/usr/sbin:/sbin', 'PROMPT_COMMAND': 'printf "\\033]0;\\007"', 'PS1': ' \\s-\\v\\$ ', 'LANG': 'C.UTF-8'} and shell False Building target platforms: loongarch64 Building for target loongarch64 Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.PgbXZi + umask 022 + cd /builddir/build/BUILD + cd /builddir/build/BUILD + rm -rf f2c-20210928 + /usr/bin/mkdir -p f2c-20210928 + cd f2c-20210928 + /usr/lib/rpm/rpmuncompress -x /builddir/build/SOURCES/src.tgz + STATUS=0 + '[' 0 -ne 0 ']' + /usr/bin/chmod -Rf a+rX,u+w,g-w,o-w . + mkdir libf2c + unzip -qq /builddir/build/SOURCES/libf2c.zip -d libf2c + /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/f2c-20110801.patch + /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f + /usr/lib/rpm/rpmuncompress /builddir/build/SOURCES/libf2c-20110801-format-security.patch + /usr/bin/patch -p1 -s --fuzz=0 --no-backup-if-mismatch -f + sed -i s/@SOVER@/0.23/ libf2c/makefile.u + cp /builddir/build/SOURCES/f2c.pdf /builddir/build/SOURCES/f2c.ps /builddir/build/SOURCES/fc . + RPM_EC=0 ++ jobs -p + exit 0 Executing(%build): /bin/sh -e /var/tmp/rpm-tmp.rqGwct + umask 022 + cd /builddir/build/BUILD + CFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection' + export CFLAGS + CXXFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection' + export CXXFLAGS + FFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -I/usr/lib64/gfortran/modules' + export FFLAGS + FCFLAGS='-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -I/usr/lib64/gfortran/modules' + export FCFLAGS + LDFLAGS='-Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-ld -Wl,--build-id=sha1' + export LDFLAGS + LT_SYS_LIBRARY_PATH=/usr/lib64: + export LT_SYS_LIBRARY_PATH + CC=gcc + export CC + CXX=g++ + export CXX + cd f2c-20210928 + make -C src -f makefile.u -j32 'CFLAGS=-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection' f2c make: Entering directory '/builddir/build/BUILD/f2c-20210928/src' cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection main.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection init.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection gram.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection lex.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection proc.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection equiv.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection data.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection format.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection expr.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection exec.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection intr.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection io.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection misc.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection error.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection mem.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection names.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection output.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection p1output.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection pread.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection put.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection putpcc.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection vax.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection formatdata.c init.c: In function 'fileinit': init.c:319:54: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 319 | for(j = 0, s = "abcdefghijklmnopqrstuvwxyz"; i = *s++; j++) | ^ init.c: In function 'hashclear': init.c:364:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 364 | if(p = hp->varp) | ^ init.c:367:28: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 367 | if(q = p->vdim) | ^ cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection parse_args.c main.c: In function 'write_typedefs': main.c:363:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 363 | if (s = usedcasts[i]) { | ^ main.c:380:33: warning: array subscript has type 'char' [-Wchar-subscripts] 380 | if (used_rets[st[i]]) | ~~^~~ main.c:384:53: warning: array subscript has type 'char' [-Wchar-subscripts] 384 | stl[i], ftn_types[st[i]]); | ~~^~~ main.c: In function 'commonprotos': main.c:419:25: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 419 | if (at = e->arginfo) { | ^~ main.c:417:20: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 417 | if (e->extstg == STGEXT | ^ main.c: In function 'I_args': main.c:471:43: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 471 | && (s[3] || s[2] != '2' && s[2] != '4')) | ~~~~~~~~~~~~^~~~~~~~~~~~~~ main.c: In function 'omit_non_f': main.c:489:24: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 489 | for(i = k = 0; s = ftn_files[k]; k++) { | ^ main.c: In function 'main': main.c:653:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 653 | if(k = yyparse()) | ^ main.c: In function 'opf': main.c:747:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 747 | if( fp = fopen(fn, mode) ) | ^~ cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection niceprintf.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection cds.c if cc sysdeptest.c; then echo '/*OK*/' > sysdep.hd;\ elif cc -DNO_MKDTEMP sysdeptest.c; then echo '#define NO_MKDTEMP' >sysdep.hd;\ else echo '#define NO_MKDTEMP' >sysdep.hd; echo '#define NO_MKSTEMP' >>sysdep.hd; fi cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection version.c io.c:275:29: warning: missing braces around initializer [-Wmissing-braces] 275 | LOCAL io_setup io_stuff[] = { | ^ lex.c:160:1: warning: missing braces around initializer [-Wmissing-braces] 160 | { | ^ 161 | '(', SLPAR, | { } 162 | ')', SRPAR, | { } 163 | '=', SEQUALS, | { } 164 | ',', SCOMMA, | { } 165 | '+', SPLUS, | { } 166 | '-', SMINUS, | { } 167 | '*', SSTAR, | { } 168 | '/', SSLASH, | { } 169 | '$', SCURRENCY, | { } 170 | ':', SCOLON, | { } 171 | '<', SLT, | { } 172 | '>', SGT, | { } 173 | 0, 0 }; | { } io.c: In function 'endioctl': lex.c:176:1: warning: missing braces around initializer [-Wmissing-braces] 176 | { | ^ 177 | "and.", SAND, | { } 178 | "or.", SOR, | { } 179 | "not.", SNOT, | { } 180 | "true.", STRUE, | { } 181 | "false.", SFALSE, | { } 182 | "eq.", SEQ, | { } 183 | "ne.", SNE, | { } 184 | "lt.", SLT, | { } 185 | "le.", SLE, | { } 186 | "gt.", SGT, | { } 187 | "ge.", SGE, | { } 188 | "neqv.", SNEQV, | { } 189 | "eqv.", SEQV, | { } 190 | 0, 0 }; | { } io.c:437:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 437 | if(p = V(IOSEND)) | ^ misc.c: In function 'revchain': misc.c:267:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 267 | while(p = next) { | ^ io.c:437:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 437 | if(p = V(IOSEND)) | ^ misc.c: In function 'addunder': io.c:443:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 443 | if(p = V(IOSERR)) | ^ misc.c:292:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 292 | while(c = *s++) | ^ io.c:443:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 443 | if(p = V(IOSERR)) | ^ expr.c: In function 'mkconv': expr.c:347:43: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 347 | else if( ISCONST(p) && pt!=TYADDR && pt != TYCHAR expr.c:353:30: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 353 | if (ISINT(t) && ISINT(pt) || ISREAL(t) && ISREAL(pt)) { misc.c: In function 'mkname': lex.c: In function 'doinclude': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { expr.c: In function 'cpexpr': io.c: In function 'iocname': expr.c:456:30: warning: array subscript has type 'char' [-Wchar-subscripts] 456 | e = cpblock(blksize[p->tag], (char *)p); | ~^~~~~ io.c:551:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 551 | if(!strcmp(ioc[i].iocname, token)) | ^ expr.c:478:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 478 | if(pp = p->listblock.listp) | ^~ proc.c: In function 'fix_entry_returns': proc.c:140:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 140 | if (a = xretslot[i]) | ^ data.c: In function 'nextdata': data.c:189:42: warning: array subscript has type 'char' [-Wchar-subscripts] 189 | off = typesize[np->vtype] * curdtelt; | ~~^~~~~~~ proc.c:163:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 163 | while(e = e->entnextp); | ^ misc.c:428:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 428 | while(c = *s++) { | ^ In file included from expr.c:24: expr.c: In function 'wronginf': data.c:216:55: warning: array subscript has type 'char' [-Wchar-subscripts] 216 | else *elenp = typesize[q->headblock.vtype]; | ~~~~~~~~~~~~^~~~~~ misc.c:441:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 441 | while(q = hp->varp) | ^ data.c:221:46: warning: array subscript has type 'char' [-Wchar-subscripts] 221 | : typesize[np->vtype]; | ~~^~~~~~~ expr.c:587:32: warning: array subscript has type 'char' [-Wchar-subscripts] 587 | c = letter(np->fvarname[0]); | ~~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ proc.c: In function 'putentries': proc.c:247:63: warning: array subscript has type 'char' [-Wchar-subscripts] 247 | : dfltarg[((Namep)args->datap)->vtype]); | ~~~~~~~~~~~~~~~~~~~~^~~~~~~ misc.c:462:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 462 | while(*t = *s++) | ^ proc.c:250:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 250 | if (np = *a) | ^~ p1output.c: In function 'p1_comment': p1output.c:71:59: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 71 | || pointer > ustr && pointer[-1] == '/')) | ~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~ proc.c:270:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 270 | while(e = e->entnextp); | ^ proc.c: In function 'entry_goto': misc.c: In function 'execlab': proc.c:287:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 287 | while(e = e->entnextp) | ^ data.c: In function 'dataname': misc.c:524:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 524 | if(lp = mklabel(stateno)) | ^~ proc.c: In function 'zap_changes': data.c:400:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 400 | while(*t++ = *s++); | ^ proc.c:322:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 322 | if (at = ((Namep)cp->datap)->arginfo) | ^~ expr.c: In function 'fixexpr': expr.c:738:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 738 | if(rp = p->rightp) | ^~ p1output.c: In function 'p1_addr': p1output.c:261:49: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 261 | || ONEOF(stg, M(STGCOMMON)|M(STGEQUIV)) && lex.c:382:37: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 382 | if (fp = fopen(name, textread)) { | ^~ misc.c: In function 'frexchain': lex.c: In function 'putlineno': equiv.c: In function 'doequiv': equiv.c:167:28: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 167 | if(np = q->eqvitem.eqvname) | ^~ lex.c:484:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 484 | if (lastfile = infname) { | ^~~~~~~~ misc.c:702:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 702 | if (q = *p) { | ^ equiv.c:170:35: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 170 | if(np->vstg==STGEQUIV) | ^ lex.c:483:20: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 483 | if (lastfile != infname) | ^ format.c: In function 'start_formatting': format.c:155:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 155 | if (infile = fopen (p1_file, binread)) { | ^~~~~~ equiv.c: In function 'eqvcommon': equiv.c:265:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 265 | if(np = q->eqvitem.eqvname) | ^~ mem.c: In function 'other_undefs': mem.c:264:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 264 | if (d = define_list) { | ^ lex.c: In function 'getcds': mem.c:269:31: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 269 | while(d = d->next); | ^ lex.c:602:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 602 | if(code == STEOF) | ^ format.c: In function 'addrlit': format.c:446:27: warning: dereferencing type-punned pointer will break strict-aliasing rules [-Wstrict-aliasing] 446 | *((union Constant *) &(litp->litval)); | ~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ p1output.c:267:66: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 267 | || ONEOF(stg, M(STGBSS)|M(STGINIT)|M(STGAUTO)|M(STGARG)) && intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { proc.c: In function 'enddcl': output.c: In function 'out_name': io.c: In function 'startrw': proc.c:405:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 405 | if (ep = ep0 = (struct Entrypoint *)revchain((chainp)entries)) { | ^~ output.c:457:39: warning: array subscript has type 'char' [-Wchar-subscripts] 457 | nice_printf(fp, xretslot[namep->vtype]->user.ident); | ~~~~~^~~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { proc.c:408:31: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 408 | while(ep = ep->entnextp); | ^~ io.c:954:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 954 | if(p = V(IOSUNIT)) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { gram.c: In function 'yyparse': expr.c:796:57: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 796 | || rtype == TYDREAL && ltype == TYREAL && !ISCONST(rp)) intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { io.c:974:36: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 974 | if(nump = np->vdim->nelt) | ^~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { gram.c:1312:56: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1312 | && (np->vtype != TYCHAR || np->vdim && !pp->argsp)) | ~~~~~~~~~^~~~~~~~~~~~~ io.c:1009:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1009 | if(p = V(IOSREC)) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { io.c:1025:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1025 | if(p = V(IOSFMT)) | ^ output.c: In function 'out_addr': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { proc.c: In function 'dim_finish': output.c:606:55: warning: array subscript has type 'char' [-Wchar-subscripts] 606 | xretslot[addrp->vtype]->user.ident); | ~~~~~^~~~~~~ io.c:1059:36: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1059 | || p->tag == TADDR && ISINT(p->addrblock.vtype)) proc.c:697:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 697 | if (q = p->dims[i].dimexpr) { | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { output.c:642:40: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 642 | if ((addrp->uname_tag == UNAM_NAME && addrp->user.name->vdim | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~ proc.c:702:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 702 | if (q = p->basexpr) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { proc.c: In function 'doentry': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { In file included from defs.h:27, from output.c:24: output.c:660:38: warning: array subscript has type 'char' [-Wchar-subscripts] 660 | ICON (typesize[addrp -> vtype] * (addrp -> Field ? 2 : 1))); | ~~~~~~^~~~~~~~ defines.h:294:36: note: in definition of macro 'ICON' 294 | #define ICON(z) mkintcon( (ftnint)(z) ) | ^ proc.c:744:32: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 744 | if(procclass == CLMAIN && !ep->arglist || procclass == CLBLOCK) | ~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~ In file included from defs.h:27: expr.c: In function 'mkscalar': expr.c:1017:45: warning: array subscript has type 'char' [-Wchar-subscripts] 1017 | (tagptr)ICON(typesize[np->vtype]) ), | ~~^~~~~~~ defines.h:294:36: note: in definition of macro 'ICON' 294 | #define ICON(z) mkintcon( (ftnint)(z) ) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { pread.c: In function 'readref': expr.c: In function 'mkfunct': pread.c:254:43: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 254 | || type != TYFTNLEN + 100 && type % 100 > TYSUBR) intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { expr.c:1078:49: warning: dereferencing type-punned pointer will break strict-aliasing rules [-Wstrict-aliasing] 1078 | && (zflag || !(*(struct Intrpacked *)&k).f4 | ^~~~~~~~~~~~~~~~~~~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { In file included from proc.c:24: proc.c:825:61: warning: array subscript has type 'char' [-Wchar-subscripts] 825 | dflttype[letter(np->fvarname[0])]; | ~~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ io.c: In function 'dofopen': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { io.c:1195:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1195 | if( (p = V(IOSFILE)) ) | ^ expr.c:1141:65: warning: array subscript has type 'char' [-Wchar-subscripts] 1141 | np->vtype = dflttype[letter(np->fvarname[0])]; | ~~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { io.c:1203:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1203 | if(p = V(IOSRECL)) | ^ misc.c: In function 'struct_eq': io.c: In function 'dofinquire': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { expr.c: In function 'stfcall': proc.c: In function 'dobss': io.c:1240:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1240 | if(p = V(IOSUNIT)) | ^ misc.c:1313:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1313 | if (d1 = v1->vdim) { | ^~ proc.c:934:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 934 | if(q = p->varp) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { expr.c:1231:64: warning: array subscript has type 'char' [-Wchar-subscripts] 1231 | type = np->vtype = dflttype[letter(np->fvarname[0])]; | ~~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ proc.c: In function 'iarrlen': output.c:681:25: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 681 | && addrp->user.name->vprocclass == PTHISPROC) && format.c: In function 'do_p1_extern': put.c: In function 'putconst': put.c:386:37: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 385 | cd[1] == litp->litval.litdval[1] | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 386 | && !strcmp(ds[1], litp->cds[1]))) { | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ format.c:924:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 924 | if (addrp->vtype = extsymtab[addrp->memno].extype) | ^~~~~ format.c: In function 'length_comp': format.c:1074:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1074 | if (arg = (Namep)args->datap) { | ^~~ gram.c:855:1: warning: label 'yyerrlab' defined but not used [-Wunused-label] 855 | yyerrlab: | ^~~~~~~~ expr.c: In function 'mkplace': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { expr.c:1355:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1355 | if(np->vdovar && ( (regn = inregister(np)) >= 0) ) | ^ lex.c: In function 'getcd': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { lex.c:1030:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1030 | if( !isspace(*p) ) | ^ io.c: In function 'iosetip': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { expr.c: In function 'mklhs': lex.c: In function 'adjtoklen': io.c:1480:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1480 | if(p = V(i)) | ^ lex.c:1060:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1060 | if (token = (char *)realloc(token, maxtoklen)) | ^~~~~ expr.c:1454:33: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1453 | && (np->vdim->ndim > 1 || np->vtype == TYCHAR | ~~~~~~~~~~~~~~~~~~~ 1454 | && (!ISCONST(np->vleng) | ^~~~~~~~~~~~~~~~~~~~~~~ 1455 | || np->vleng->constblock.Const.ci != 1))) | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { pread.c: In function 'Pfile': pread.c:892:29: warning: array subscript has type 'char' [-Wchar-subscripts] 892 | Pct[*s] = P_space; | ^~ proc.c:992:26: warning: array subscript has type 'char' [-Wchar-subscripts] 992 | leng = typesize[q->vtype]; | ~^~~~~~~ pread.c:894:29: warning: array subscript has type 'char' [-Wchar-subscripts] 894 | Pct[*s] = P_delim; | ^~ format.c:1090:44: warning: array subscript has type 'char' [-Wchar-subscripts] 1090 | a = at->atypes + init_ac[np->vtype]; | ~~^~~~~~~ pread.c:897:55: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 897 | for(s = "abcdefghijklmnopqrstuvwxyz"; i = *s; s++) | ^ proc.c:995:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 995 | if(q->vdim) | ^ format.c:1093:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1093 | if (arg = (Namep)args1->datap) | ^~~ pread.c:907:44: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 907 | || !strcmp(Ptok, "extern") && (i = Ptoken(pf,0)) != P_anum) | ^ proc.c:999:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 999 | if(q->vleng) | ^ pread.c:918:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 918 | while(i = Ptype(pf)) { | ^ format.c: In function 'listargs': pread.c: In function 'read_Pfiles': format.c:1153:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1153 | if (arg = (Namep)args->datap) { | ^~~ proc.c: In function 'docommon': pread.c:960:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 960 | while(s = *ffiles++) | ^ proc.c:1089:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1089 | if(t = comvar->vdim) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { output.c: In function 'out_call': expr.c: In function 'suboffset': output.c:1331:25: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1330 | !ONEOF (q -> addrblock.vstg, M(STGEXT)|M(STGLENG)) | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1331 | && (ONEOF(q->addrblock.vstg, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1332 | M(STGCOMMON)|M(STGEQUIV)|M(STGMEMNO)) | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1333 | || ((memoffset = q->addrblock.memoffset) | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1334 | && (!ISICON(memoffset) | ~~~~~~~~~~~~~~~~~~~~~~ 1335 | || memoffset->constblock.Const.ci))) | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { expr.c:1625:66: warning: array subscript has type 'char' [-Wchar-subscripts] 1625 | (expptr) cpexpr(np->vleng) : ICON(typesize[np->vtype]); | ~~^~~~~~~ defines.h:294:36: note: in definition of macro 'ICON' 294 | #define ICON(z) mkintcon( (ftnint)(z) ) | ^ output.c:1310:16: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1310 | if (q -> headblock.vtype != TYCHAR) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { proc.c:1089:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1089 | if(t = comvar->vdim) | ^ format.c: In function 'list_arg_types': format.c:1231:16: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1231 | if (vclass == CLPROC) | ^ formatdata.c: In function 'list_init_data': formatdata.c:54:9: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 54 | if (status = dsort(Inname, sortfname)) | ^~~~~~ proc.c: In function 'freetemps': lex.c: In function 'crunch': proc.c:1205:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1205 | while(p = p1) { | ^ format.c: In function 'write_ioblocks': lex.c:1196:32: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1196 | else if(parlev == 0) | ^ putpcc.c: In function 'putif': exec.c: In function 'mixed_type': putpcc.c:107:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 107 | if (*ei_next++ = ftell(pass1_file) > p1_where) { | ^ exec.c:350:29: warning: array subscript has type 'char' [-Wchar-subscripts] 350 | ftn_types[np->vtype], np->fvarname); | ~~^~~~~~~ formatdata.c: In function 'write_char_init': formatdata.c:221:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 221 | if (dimp = namep->vdim) | ^~~~ expr.c: In function 'subcheck': vax.c: In function 'make_int_expr': vax.c:161:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 161 | if (e1 = e->addrblock.memoffset) | ^~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { vax.c:167:33: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 165 | || e->addrblock.vstg == STGCOMMON | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 166 | && e->addrblock.uname_tag == UNAM_NAME | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 167 | && e->addrblock.user.name->vcommequiv) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ expr.c:1672:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1672 | if( ISICON(dimp->nelt) ) | ^ vax.c: In function 'count_args': vax.c:241:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 241 | if (q = (Namep)cp->datap) | ^ vax.c: In function 'aawalk': lex.c: In function 'analyz': vax.c:267:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 267 | if (q = P->fcharp) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { output.c: In function 'out_init': vax.c:269:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 269 | if (q = P->lcharp) | ^ expr.c: In function 'mkaddr': vax.c: In function 'afwalk': vax.c:296:34: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 296 | && q->primblock.namep->vprocclass formatdata.c: In function 'wr_one_init': lex.c:1272:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1272 | if(stkey==SGOTO && lastch>=nextch) | ^ output.c:1438:16: warning: array subscript has type 'char' [-Wchar-subscripts] 1438 | tr_tab[*s++] = 3; | ^~~~ expr.c:1737:65: warning: array subscript has type 'char' [-Wchar-subscripts] 1737 | return (Addrp) cpexpr((expptr)xretslot[p->vtype]); | ~^~~~~~~ In file included from lex.c:24: lex.c: In function 'getkwd': lex.c:1292:26: warning: array subscript has type 'char' [-Wchar-subscripts] 1292 | k = letter(nextch[0]); | ~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ exec.c: In function 'exenddo': format.c:1322:36: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1322 | for(s = L->fields; f = *s; s++) { | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { format.c:1335:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1335 | while(L = L->next); | ^ format.c: In function 'write_assigned_fmts': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { output.c: In function 'compgoto_out': proc.c: In function 'comblock': rm -f a.out cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection sysdep.c format.c:1368:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1368 | while(cp = cp->nextp); | ^~ output.c:1695:33: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1695 | && index->exprblock.opcode == OPWHATSIN) format.c: In function 'to_upper': proc.c:1395:28: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1395 | for(i = 0; c = *t = *s++; t++) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { format.c:1383:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1383 | while(*t++ = (c = *s++) >= 'a' && c <= 'z' ? c + 'A' - 'a' : c); | ^ format.c: In function 'write_namelists': names.c: In function 'wr_globals': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { names.c:368:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 368 | if (y = x % hsize) | ^ proc.c: In function 'settype': format.c:1441:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1441 | if (dimp = v->vdim) { | ^~~~ formatdata.c:393:8: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 393 | if (type == TYCHAR) | ^ formatdata.c:278:17: warning: unused variable 'datachar' [-Wunused-variable] 278 | extern char datachar[]; | ^~~~~~~~ expr.c: In function 'vardcl': expr.c:1942:54: warning: array subscript has type 'char' [-Wchar-subscripts] 1942 | v->vstg = implstg[ letter(v->fvarname[0]) ]; | ~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ exec.c:693:22: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 693 | || here >= 0 && (!thislabel || thislabel->labelno != here)) { | ~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ exec.c:699:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 699 | if (np1 = ctlstack->loopname) | ^~~ formatdata.c: In function 'make_one_const': expr.c:1957:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1957 | if(t = v->vdim) | ^ exec.c: In function 'enddo': lex.c:1293:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1293 | if(pk = keystart[k]) | ^~ vax.c: In function 'prolog': proc.c:1480:25: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1479 | || v->vtype != type | ~~~~~~~~~~~~~~~~ 1480 | && (v->vimpltype || v->vinftype || v->vinfproc)) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ exec.c:731:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 731 | if(np = ctlstack->donamep) | ^~ vax.c:466:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 466 | if(dp = q->vdim) /* if this param is an array ... */ | ^~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { exec.c:738:28: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 738 | if(ap = memversion(np)) | ^~ putpcc.c: In function 'putcx1': lex.c: In function 'initkey': vax.c:511:35: warning: array subscript has type 'char' [-Wchar-subscripts] 511 | size = typesize[ q->vtype ]; | ~^~~~~~~ format.c:1485:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1485 | while(nmch = nmch->nextp); | ^~~~ exec.c:746:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 746 | if (e = ctlstack->dostep) | ^ putpcc.c:686:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 686 | if (q = resp->memoffset) { | ^ proc.c:1482:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1482 | if( (v->vtype = lengtype(type, length))==TYCHAR ) | ^ vax.c:512:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 512 | if(q->vtype == TYCHAR) | ^ lex.c:1323:38: warning: array subscript has type 'char' [-Wchar-subscripts] 1323 | j = letter(p->keyname[0]); | ~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ putpcc.c:694:57: warning: array subscript has type 'char' [-Wchar-subscripts] 694 | tskludge = typesize[resp->vtype] | ~~~~^~~~~~~ exec.c:746:28: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 746 | if (e = ctlstack->dostep) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { putpcc.c:703:51: warning: array subscript has type 'char' [-Wchar-subscripts] 703 | ts = typesize[resp->vtype] | ~~~~^~~~~~~ exec.c:751:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 751 | if (e = ctlstack->domax) | ^ lex.c:1340:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1340 | while(i = *s++) | ^ proc.c:1517:17: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1517 | else if (type==TYCHAR) | ^ exec.c:751:28: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 751 | if (e = ctlstack->domax) | ^ lex.c:1343:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1343 | while(i = *s++) | ^ exec.c:756:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 756 | if (e = ctlstack->doinit) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { putpcc.c:760:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 760 | if(lp = putcx1(p->exprblock.leftp) ) | ^~ formatdata.c:706:13: warning: this 'while' clause does not guard... [-Wmisleading-indentation] 706 | while (index > main_index++) | ^~~~~ formatdata.c:709:17: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'while' 709 | k = (int)(Addr)(((chainp)values->datap)->nextp->nextp->datap); | ^ formatdata.c:730:31: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 730 | while(vals = vals->nextp); | ^~~~ expr.c:1957:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1957 | if(t = v->vdim) | ^ expr.c: In function 'impldcl': expr.c:1990:39: warning: array subscript has type 'char' [-Wchar-subscripts] 1990 | k = letter(p->fvarname[0]); | ~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ expr.c: In function 'inferdcl': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { proc.c: In function 'setintr': format.c: In function 'list_decls': proc.c:1622:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1622 | if(k = intrfunct(v->fvarname)) { | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { format.c:1676:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1676 | if (this_var = arg->vlastdim) { | ^~~~~~~~ proc.c:1623:23: warning: dereferencing type-punned pointer will break strict-aliasing rules [-Wstrict-aliasing] 1623 | if ((*(struct Intrpacked *)&k).f4) | ^~~~~~~~~~~~~~~~~~~~~~~ format.c:1688:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1688 | if (Var = (Addrp)this_var->datap) { | ^~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { expr.c:2015:45: warning: array subscript has type 'char' [-Wchar-subscripts] 2015 | int k = impltype[letter(np->fvarname[0])]; | ~~~~~~~~~~~~^~~ defs.h:739:27: note: in definition of macro 'letter' 739 | #define letter(x) Letters[x] | ^ putpcc.c:762:12: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 762 | if(rp = putcx1(p->exprblock.rightp) ) | ^~ formatdata.c: In function 'get_fill': formatdata.c:984:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 984 | if (L = loc % typesize[xtype]) { | ^ lex.c: In function 'gettok': lex.c:1503:11: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1503 | if(ch == '.') | ^ formatdata.c: In function 'wr_equiv_init': formatdata.c:1053:41: warning: array subscript has type 'char' [-Wchar-subscripts] 1053 | if (halign && typealign[typepref[xtype]] < typealign[htype]) | ~~~~~~~~^~~~~~~ proc.c:1623:20: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1623 | if ((*(struct Intrpacked *)&k).f4) | ^ format.c:1700:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1700 | if (this_var = nv[i]) { | ^~~~~~~~ formatdata.c:1072:37: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1072 | if (j = (int)(L % k)) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { putpcc.c: In function 'putaddr': format.c:1723:25: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1721 | || Var->uname_tag == UNAM_IDENT | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1722 | && *Var->user.ident == ' ' | ~~~~~~~~~~~~~~~~~~~~~~~~~~ 1723 | && multitype) | ^~~~~~~~~~~~ putpcc.c:1196:12: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1196 | if (p->isarray && p->memoffset) | ^ niceprintf.c: In function 'fwd_strcpy': niceprintf.c:205:9: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 205 | { while(*t++ = *s++); } | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { expr.c: In function 'mkexpr': expr.c:2198:60: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 2198 | if (opcode == OPSTAR || ISICON(rp) && lex.c:1582:38: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1582 | if (nextch[1] == '#' && nextch < lastch | ~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~ parse_args.c: In function 'lower_string': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { parse_args.c:416:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 416 | while (*dest++ = (c = *src++) >= 'A' && c <= 'Z' ? tolower(c) : c); | ^ format.c:1819:16: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1819 | if (var->vsubscrused) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { putpcc.c: In function 'save_argtypes': putpcc.c:1450:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1450 | if (at = *at0) { | ^~ format.c:1890:17: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1890 | if (Define = (Alias && def_equivs)) { | ^~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { format.c:1956:21: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1955 | if (type == TYCHAR && vclass != CLPROC | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1956 | && (!var->vleng || !ISICON (var -> vleng)) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { expr.c: In function 'cktype': expr.c:2514:58: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 2514 | && (lt == TYCHAR && ISNUMERIC(rt) cds.c: In function 'cds': cds.c:109:13: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 109 | if (et = etype[(unsigned char)c]) { | ^~ expr.c:2551:35: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 2551 | if (ISLOGICAL(lt) && ISLOGICAL(rt) format.c:2103:60: warning: array subscript has type 'char' [-Wchar-subscripts] 2103 | var->cvarname, typeconv[var->vtype], | ~~~^~~~~~~ putpcc.c: In function 'putcall': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { putpcc.c:1751:25: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 1751 | && q->addrblock.user.name->vprocclass == PTHISPROC) intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { putpcc.c: In function 'foldminmax': putpcc.c:1932:26: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1932 | else if (dstg = c1->vstg) | ^~~~ putpcc.c:1936:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1936 | while(p = p->nextp) { | ^ putpcc.c:1941:34: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1941 | else if (d1stg = c1->vstg) | ^~~~~ format.c: In function 'proto': putpcc.c:1956:21: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1956 | if (c->vstg = dstg) | ^ format.c:2493:46: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 2493 | || j == 200 && k >= 200) | ~~~~~~~~~^~~~~~~~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { expr.c: In function 'fold': expr.c:2908:49: warning: suggest parentheses around '&&' within '||' [-Wparentheses] 2908 | || rp->constblock.Const.ci < 0 && zeroconst(lp)) | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~ putpcc.c:1963:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 1963 | while(p = p->nextp) { | ^ format.c:2501:39: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 2501 | while(cp = cp->nextp); | ^~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { niceprintf.c: In function 'adjust_pointer_in_string': niceprintf.c:191:19: warning: 's0' may be used uninitialized [-Wmaybe-uninitialized] 191 | return s0 - 1; | ~~~^~~ niceprintf.c:172:38: note: 's0' was declared here 172 | register char *s, *s1, *se, *s0; | ^~ In function 'write_typedefs', inlined from 'main' at main.c:695:3: main.c:370:41: warning: 'c_output' may be used uninitialized [-Wmaybe-uninitialized] 370 | nice_printf(outfile, | ^~~~~~~~~~~~~~~~~~~~ 371 | "typedef int /* Unknown procedure type */ (*%s)%s;\n", | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 372 | s, p); | ~~~~~ main.c: In function 'main': main.c:549:15: note: 'c_output' was declared here 549 | FILE *c_output; | ^~~~~~~~ main.c:720:17: warning: pointer 'c_output_107' used after 'fclose' [-Wuse-after-free] 720 | def_commons(c_output); | ^~~~~~~~~~~~~~~~~~~~~ main.c:719:25: note: call to 'fclose' here 719 | fclose(c_output); | ^~~~~~~~~~~~~~~~ io.c: In function 'ioset': io.c:1328:46: warning: '__sprintf_chk' may write a terminating nul past the end of the destination [-Wformat-overflow=] 1328 | sprintf(q->user.ident, "%s.%s", | ^ In file included from /usr/include/stdio.h:964, from sysdep.h:58, from defs.h:24, from io.c:32: In function 'sprintf', inlined from 'ioset' at io.c:1328:3: /usr/include/bits/stdio2.h:30:10: note: '__sprintf_chk' output 2 or more bytes (assuming 33) into a destination of size 32 30 | return __builtin___sprintf_chk (__s, __USE_FORTIFY_LEVEL - 1, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 31 | __glibc_objsize (__s), __fmt, | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 32 | __va_arg_pack ()); | ~~~~~~~~~~~~~~~~~ io.c: In function 'ioset': io.c:1314:25: warning: 's' may be used uninitialized [-Wmaybe-uninitialized] 1314 | string_num(s, p->constblock.Const.ci); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ io.c:1302:32: note: 's' was declared here 1302 | register char *s; | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { put.c:386:41: warning: 'ds[1]' may be used uninitialized [-Wmaybe-uninitialized] 386 | && !strcmp(ds[1], litp->cds[1]))) { | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ put.c:282:41: note: 'ds[1]' was declared here 282 | char cdsbuf0[64], cdsbuf1[64], *ds[2]; | ^~ put.c:383:37: warning: 'ds[0]' may be used uninitialized [-Wmaybe-uninitialized] 383 | && !strcmp(ds[0], litp->cds[0]) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ put.c:282:41: note: 'ds[0]' was declared here 282 | char cdsbuf0[64], cdsbuf1[64], *ds[2]; | ^~ put.c:429:65: warning: 'cd[1]' may be used uninitialized [-Wmaybe-uninitialized] 429 | litp->litval.litdval[1] = cd[1]; | ~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~ put.c:279:16: note: 'cd[1]' was declared here 279 | double cd[2]; | ^~ put.c:382:35: warning: 'cd[0]' may be used uninitialized [-Wmaybe-uninitialized] 382 | if(cd[0] == litp->litval.litdval[0] | ^ put.c:279:16: note: 'cd[0]' was declared here 279 | double cd[2]; | ^~ In file included from /usr/include/string.h:548, from sysdep.h:96, from defs.h:24, from put.c:29: In function 'memcpy', inlined from 'putconst' at put.c:422:6: /usr/include/bits/string_fortified.h:29:10: warning: 'strp' may be used uninitialized [-Wmaybe-uninitialized] 29 | return __builtin___memcpy_chk (__dest, __src, __len, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 30 | __glibc_objsize0 (__dest)); | ~~~~~~~~~~~~~~~~~~~~~~~~~~ put.c: In function 'putconst': put.c:281:15: note: 'strp' was declared here 281 | char *strp; | ^~~~ put.c:420:58: warning: 'nblanks' may be used uninitialized [-Wmaybe-uninitialized] 420 | litp->litval.litival2[1] = nblanks; | ~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~ put.c:280:16: note: 'nblanks' was declared here 280 | ftnint nblanks; | ^~~~~~~ put.c:374:37: warning: 'len' may be used uninitialized [-Wmaybe-uninitialized] 374 | && !memcmp(strp, litp->cds[0], len)) { | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ put.c:277:16: note: 'len' was declared here 277 | int k, len, type; | ^~~ sysdep.c: In function 'c_name': sysdep.c:260:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 260 | while(c = *s++) | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { sysdep.c: In function 'fmt_init': sysdep.c:550:40: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 550 | for(s = "\b\t\n\f\r\v", i = 0; j = *(unsigned char *)s++;) | ^ sysdep.c: In function 'dsort': intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { sysdep.c:694:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 694 | while(mb = mb1); | ^~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { io.c: In function 'ioseta': io.c:1447:34: warning: 's' may be used uninitialized [-Wmaybe-uninitialized] 1447 | s1 = mem(strlen(s)+10,0); | ^~~~~~~~~ io.c:1387:15: note: 's' was declared here 1387 | char *s, *s1; | ^ putpcc.c: In function 'get_argtypes.isra.0': putpcc.c:1647:16: warning: 'fname' may be used uninitialized [-Wmaybe-uninitialized] 1647 | return fname; | ^~~~~ putpcc.c:1613:15: note: 'fname' was declared here 1613 | char *fname; | ^~~~~ putpcc.c:1646:15: warning: 'at1' may be used uninitialized [-Wmaybe-uninitialized] 1646 | *pat1 = at1; | ~~~~~~^~~~~ putpcc.c:1610:27: note: 'at1' was declared here 1610 | Argtypes **at0, **at1; | ^~~ putpcc.c:1645:15: warning: 'at0' may be used uninitialized [-Wmaybe-uninitialized] 1645 | *pat0 = at0; | ~~~~~~^~~~~ putpcc.c:1610:20: note: 'at0' was declared here 1610 | Argtypes **at0, **at1; | ^~~ proc.c: In function 'autovar': proc.c:1253:28: warning: 'leng' may be used uninitialized [-Wmaybe-uninitialized] 1253 | q->varleng = leng; | ~~~~~~~~~~~^~~~~~ proc.c:1233:16: note: 'leng' was declared here 1233 | ftnint leng; | ^~~~ expr.c: In function 'consbinop': expr.c:3507:37: warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] 3507 | cp->ci = (k <= 0); | ~~~^~~~~ expr.c:3242:16: note: 'k' was declared here 3242 | ftnint k; | ^ expr.c:3348:52: warning: 'bd[1]' may be used uninitialized [-Wmaybe-uninitialized] 3348 | cp->cd[1] = ad[0] * bd[1] + ad[1] * bd[0] ; | ~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~ expr.c:3243:23: note: 'bd[1]' was declared here 3243 | double ad[2], bd[2], temp; | ^~ expr.c:3347:30: warning: 'bd[0]' may be used uninitialized [-Wmaybe-uninitialized] 3347 | temp = ad[0] * bd[0] - ad[1] * bd[1] ; | ~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ expr.c:3243:23: note: 'bd[0]' was declared here 3243 | double ad[2], bd[2], temp; | ^~ In function 'zdiv', inlined from 'consbinop' at expr.c:3375:4: output.c: In function 'out_call': expr.c:3715:44: warning: 'ad[1]' may be used uninitialized [-Wmaybe-uninitialized] 3715 | c->dimag = (a->dimag*ratio - a->dreal) / den; | ~~~~~~~~~~~~~~~~^~~~~~~~~~~ expr.c: In function 'consbinop': output.c:1303:33: warning: 'at' may be used uninitialized [-Wmaybe-uninitialized] 1303 | else if (Ac && narg < at->dnargs | ~~^~~~~~~~ output.c:1149:15: note: 'at' was declared here 1149 | Argtypes *at; | ^~ expr.c:3243:16: note: 'ad[1]' was declared here 3243 | double ad[2], bd[2], temp; | ^~ expr.c:3348:52: warning: 'ad[0]' may be used uninitialized [-Wmaybe-uninitialized] 3348 | cp->cd[1] = ad[0] * bd[1] + ad[1] * bd[0] ; | ~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~ expr.c:3243:16: note: 'ad[0]' was declared here 3243 | double ad[2], bd[2], temp; | ^~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { format.c: In function 'do_uninit_equivs': format.c:2137:47: warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] 2137 | (eqv->eqvtop - eqv->eqvbottom + k - 1) / k); | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~ format.c:2120:9: note: 'k' was declared here 2120 | int k, last_type = -1, t; | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { In file included from defs.h:27, from putpcc.c:27: defines.h: In function 'putcx1': defines.h:277:20: warning: 'rtype' may be used uninitialized [-Wmaybe-uninitialized] 277 | #define ONEOF(x,y) (M(x) & (y)) | ^ putpcc.c:668:20: note: 'rtype' was declared here 668 | int ltype, rtype; | ^~~~~ defines.h:277:20: warning: 'ltype' may be used uninitialized [-Wmaybe-uninitialized] 277 | #define ONEOF(x,y) (M(x) & (y)) | ^ putpcc.c:668:13: note: 'ltype' was declared here 668 | int ltype, rtype; | ^~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { io.c: In function 'startrw': io.c:1094:20: warning: 'recp' may be used uninitialized [-Wmaybe-uninitialized] 1094 | if (recp) { | ^ io.c:942:37: note: 'recp' was declared here 942 | register Addrp unitp, fmtp, recp; | ^~~~ io.c:1151:17: warning: 'nump' may be used uninitialized [-Wmaybe-uninitialized] 1151 | ioset(TYIOINT, XIRNUM, nump); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~ io.c:943:25: note: 'nump' was declared here 943 | register expptr nump; | ^~~~ io.c:1152:17: warning: 'unitp' may be used uninitialized [-Wmaybe-uninitialized] 1152 | ioset(TYIOINT, XIRLEN, cpexpr(unitp->vleng) ); | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ io.c:942:24: note: 'unitp' was declared here 942 | register Addrp unitp, fmtp, recp; | ^~~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { putpcc.c: In function 'putch1.part.0': putpcc.c:970:23: warning: 't' may be used uninitialized [-Wmaybe-uninitialized] 970 | return(t); | ^ putpcc.c:923:15: note: 't' declared here 923 | Addrp t; | ^ proc.c: In function 'mktmpn': proc.c:1315:35: warning: 'leng' may be used uninitialized [-Wmaybe-uninitialized] 1315 | (type!=TYCHAR || q->vleng->constblock.Const.ci==leng) ) | ~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ proc.c:1286:16: note: 'leng' was declared here 1286 | ftnint leng; | ^~~~ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { In file included from /usr/include/stdio.h:964, from sysdep.h:58, from defs.h:24: In function 'sprintf', inlined from 'putpower' at putpcc.c:543:2, inlined from 'putx' at putpcc.c:281:8: /usr/include/bits/stdio2.h:30:10: warning: 'k' may be used uninitialized [-Wmaybe-uninitialized] 30 | return __builtin___sprintf_chk (__s, __USE_FORTIFY_LEVEL - 1, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 31 | __glibc_objsize (__s), __fmt, | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 32 | __va_arg_pack ()); | ~~~~~~~~~~~~~~~~~ putpcc.c: In function 'putx': putpcc.c:528:16: note: 'k' was declared here 528 | ftnint k; | ^ intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { } 220 | "ibclr", { INTRBGEN, TYUNKNOWN, OPBITCLR, 0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { } 220 | "ibclr", { INTRBGEN, TYUNKNOWN, OPBITCLR, 0, 0, 2 }, | { } 221 | "ibset", { INTRBGEN, TYUNKNOWN, OPBITSET, 0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { } 220 | "ibclr", { INTRBGEN, TYUNKNOWN, OPBITCLR, 0, 0, 2 }, | { } 221 | "ibset", { INTRBGEN, TYUNKNOWN, OPBITSET, 0, 0, 2 }, | { } 222 | "ibits", { INTRBGEN, TYUNKNOWN, OPBITBITS,0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { } 220 | "ibclr", { INTRBGEN, TYUNKNOWN, OPBITCLR, 0, 0, 2 }, | { } 221 | "ibset", { INTRBGEN, TYUNKNOWN, OPBITSET, 0, 0, 2 }, | { } 222 | "ibits", { INTRBGEN, TYUNKNOWN, OPBITBITS,0, 0, 2 }, | { } 223 | "ishft", { INTRBGEN, TYUNKNOWN, OPBITSH, 0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { } 220 | "ibclr", { INTRBGEN, TYUNKNOWN, OPBITCLR, 0, 0, 2 }, | { } 221 | "ibset", { INTRBGEN, TYUNKNOWN, OPBITSET, 0, 0, 2 }, | { } 222 | "ibits", { INTRBGEN, TYUNKNOWN, OPBITBITS,0, 0, 2 }, | { } 223 | "ishft", { INTRBGEN, TYUNKNOWN, OPBITSH, 0, 0, 2 }, | { } 224 | "ishftc", { INTRBGEN, TYUNKNOWN, OPBITSHC, 0, 0, 2 }, | { intr.c:50:1: warning: missing braces around initializer [-Wmissing-braces] 50 | { | ^ 51 | "int", { INTRCONV, TYLONG }, | { } 52 | "real", { INTRCONV, TYREAL, 1 }, | { } 53 | /* 1 ==> real(TYDCOMPLEX) yields TYDREAL */ 54 | "dble", { INTRCONV, TYDREAL }, | { } 55 | "dreal", { INTRCONV, TYDREAL, 0, 0, 0, 1 }, | { } 56 | "cmplx", { INTRCONV, TYCOMPLEX }, | { } 57 | "dcmplx", { INTRCONV, TYDCOMPLEX, 0, 1 }, | { } 58 | "ifix", { INTRCONV, TYLONG }, | { } 59 | "idint", { INTRCONV, TYLONG }, | { } 60 | "float", { INTRCONV, TYREAL }, | { } 61 | "dfloat", { INTRCONV, TYDREAL }, | { } 62 | "sngl", { INTRCONV, TYREAL }, | { } 63 | "ichar", { INTRCONV, TYLONG }, | { } 64 | "iachar", { INTRCONV, TYLONG }, | { } 65 | "char", { INTRCONV, TYCHAR }, | { } 66 | "achar", { INTRCONV, TYCHAR }, | { } ...... 72 | "max", { INTRMAX, TYUNKNOWN }, | { } 73 | "max0", { INTRMAX, TYLONG }, | { } 74 | "amax0", { INTRMAX, TYREAL }, | { } 75 | "max1", { INTRMAX, TYLONG }, | { } 76 | "amax1", { INTRMAX, TYREAL }, | { } 77 | "dmax1", { INTRMAX, TYDREAL }, | { } 78 | 79 | "and", { INTRBOOL, TYUNKNOWN, OPBITAND }, | { } 80 | "or", { INTRBOOL, TYUNKNOWN, OPBITOR }, | { } 81 | "xor", { INTRBOOL, TYUNKNOWN, OPBITXOR }, | { } 82 | "not", { INTRBOOL, TYUNKNOWN, OPBITNOT }, | { } 83 | "lshift", { INTRBOOL, TYUNKNOWN, OPLSHIFT }, | { } 84 | "rshift", { INTRBOOL, TYUNKNOWN, OPRSHIFT }, | { } 85 | 86 | "min", { INTRMIN, TYUNKNOWN }, | { } 87 | "min0", { INTRMIN, TYLONG }, | { } 88 | "amin0", { INTRMIN, TYREAL }, | { } 89 | "min1", { INTRMIN, TYLONG }, | { } 90 | "amin1", { INTRMIN, TYREAL }, | { } 91 | "dmin1", { INTRMIN, TYDREAL }, | { } 92 | 93 | "aint", { INTRGEN, 2, 0 }, | { } 94 | "dint", { INTRSPEC, TYDREAL, 1 }, | { } 95 | 96 | "anint", { INTRGEN, 2, 2 }, | { } 97 | "dnint", { INTRSPEC, TYDREAL, 3 }, | { } 98 | 99 | "nint", { INTRGEN, 4, 4 }, | { } 100 | "idnint", { INTRGEN, 2, 6 }, | { } 101 | 102 | "abs", { INTRGEN, 6, 8 }, | { } 103 | "iabs", { INTRGEN, 2, 9 }, | { } 104 | "dabs", { INTRSPEC, TYDREAL, 11 }, | { } 105 | "cabs", { INTRSPEC, TYREAL, 12, 0, 13 }, | { } 106 | "zabs", { INTRSPEC, TYDREAL, 13, 1 }, | { } 107 | 108 | "mod", { INTRGEN, 4, 14 }, | { } 109 | "amod", { INTRSPEC, TYREAL, 16, 0, 17 }, | { } 110 | "dmod", { INTRSPEC, TYDREAL, 17 }, | { } 111 | 112 | "sign", { INTRGEN, 4, 18 }, | { } 113 | "isign", { INTRGEN, 2, 19 }, | { } 114 | "dsign", { INTRSPEC, TYDREAL, 21 }, | { } 115 | 116 | "dim", { INTRGEN, 4, 22 }, | { } 117 | "idim", { INTRGEN, 2, 23 }, | { } 118 | "ddim", { INTRSPEC, TYDREAL, 25 }, | { } 119 | 120 | "dprod", { INTRSPEC, TYDREAL, 26 }, | { } 121 | 122 | "len", { INTRSPEC, TYLONG, 27 }, | { } 123 | "index", { INTRSPEC, TYLONG, 29 }, | { } 124 | 125 | "imag", { INTRGEN, 2, 31 }, | { } 126 | "aimag", { INTRSPEC, TYREAL, 31, 0, 32 }, | { } 127 | "dimag", { INTRSPEC, TYDREAL, 32 }, | { } 128 | 129 | "conjg", { INTRGEN, 2, 33 }, | { } 130 | "dconjg", { INTRSPEC, TYDCOMPLEX, 34, 1 }, | { } 131 | 132 | "sqrt", { INTRGEN, 4, 35 }, | { } 133 | "dsqrt", { INTRSPEC, TYDREAL, 36 }, | { } 134 | "csqrt", { INTRSPEC, TYCOMPLEX, 37, 0, 38 }, | { } 135 | "zsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1 }, | { } 136 | 137 | "exp", { INTRGEN, 4, 39 }, | { } 138 | "dexp", { INTRSPEC, TYDREAL, 40 }, | { } 139 | "cexp", { INTRSPEC, TYCOMPLEX, 41, 0, 42 }, | { } 140 | "zexp", { INTRSPEC, TYDCOMPLEX, 42, 1 }, | { } 141 | 142 | "log", { INTRGEN, 4, 43 }, | { } 143 | "alog", { INTRSPEC, TYREAL, 43, 0, 44 }, | { } 144 | "dlog", { INTRSPEC, TYDREAL, 44 }, | { } 145 | "clog", { INTRSPEC, TYCOMPLEX, 45, 0, 46 }, | { } 146 | "zlog", { INTRSPEC, TYDCOMPLEX, 46, 1 }, | { } 147 | 148 | "log10", { INTRGEN, 2, 47 }, | { } 149 | "alog10", { INTRSPEC, TYREAL, 47, 0, 48 }, | { } 150 | "dlog10", { INTRSPEC, TYDREAL, 48 }, | { } 151 | 152 | "sin", { INTRGEN, 4, 49 }, | { } 153 | "dsin", { INTRSPEC, TYDREAL, 50 }, | { } 154 | "csin", { INTRSPEC, TYCOMPLEX, 51, 0, 52 }, | { } 155 | "zsin", { INTRSPEC, TYDCOMPLEX, 52, 1 }, | { } 156 | 157 | "cos", { INTRGEN, 4, 53 }, | { } 158 | "dcos", { INTRSPEC, TYDREAL, 54 }, | { } 159 | "ccos", { INTRSPEC, TYCOMPLEX, 55, 0, 56 }, | { } 160 | "zcos", { INTRSPEC, TYDCOMPLEX, 56, 1 }, | { } 161 | 162 | "tan", { INTRGEN, 2, 57 }, | { } 163 | "dtan", { INTRSPEC, TYDREAL, 58 }, | { } 164 | 165 | "asin", { INTRGEN, 2, 59 }, | { } 166 | "dasin", { INTRSPEC, TYDREAL, 60 }, | { } 167 | 168 | "acos", { INTRGEN, 2, 61 }, | { } 169 | "dacos", { INTRSPEC, TYDREAL, 62 }, | { } 170 | 171 | "atan", { INTRGEN, 2, 63 }, | { } 172 | "datan", { INTRSPEC, TYDREAL, 64 }, | { } 173 | 174 | "atan2", { INTRGEN, 2, 65 }, | { } 175 | "datan2", { INTRSPEC, TYDREAL, 66 }, | { } 176 | 177 | "sinh", { INTRGEN, 2, 67 }, | { } 178 | "dsinh", { INTRSPEC, TYDREAL, 68 }, | { } 179 | 180 | "cosh", { INTRGEN, 2, 69 }, | { } 181 | "dcosh", { INTRSPEC, TYDREAL, 70 }, | { } 182 | 183 | "tanh", { INTRGEN, 2, 71 }, | { } 184 | "dtanh", { INTRSPEC, TYDREAL, 72 }, | { } 185 | 186 | "lge", { INTRSPEC, TYLOGICAL, 73}, | { } 187 | "lgt", { INTRSPEC, TYLOGICAL, 75}, | { } 188 | "lle", { INTRSPEC, TYLOGICAL, 77}, | { } 189 | "llt", { INTRSPEC, TYLOGICAL, 79}, | { } ...... 201 | "fpexpn", { INTRGEN, 4, 81 }, | { } 202 | "fpabsp", { INTRGEN, 2, 85 }, | { } 203 | "fprrsp", { INTRGEN, 2, 87 }, | { } 204 | "fpfrac", { INTRGEN, 2, 89 }, | { } 205 | "fpmake", { INTRGEN, 2, 91 }, | { } 206 | "fpscal", { INTRGEN, 2, 93 }, | { } 207 | 208 | "cdabs", { INTRSPEC, TYDREAL, 13, 1, 0, 1 }, | { } 209 | "cdsqrt", { INTRSPEC, TYDCOMPLEX, 38, 1, 0, 1 }, | { } 210 | "cdexp", { INTRSPEC, TYDCOMPLEX, 42, 1, 0, 1 }, | { } 211 | "cdlog", { INTRSPEC, TYDCOMPLEX, 46, 1, 0, 1 }, | { } 212 | "cdsin", { INTRSPEC, TYDCOMPLEX, 52, 1, 0, 1 }, | { } 213 | "cdcos", { INTRSPEC, TYDCOMPLEX, 56, 1, 0, 1 }, | { } 214 | 215 | "iand", { INTRBOOL, TYUNKNOWN, OPBITAND, 0, 0, 2 }, | { } 216 | "ior", { INTRBOOL, TYUNKNOWN, OPBITOR, 0, 0, 2 }, | { } 217 | "ieor", { INTRBOOL, TYUNKNOWN, OPBITXOR, 0, 0, 2 }, | { } 218 | 219 | "btest", { INTRBGEN, TYLOGICAL, OPBITTEST,0, 0, 2 }, | { } 220 | "ibclr", { INTRBGEN, TYUNKNOWN, OPBITCLR, 0, 0, 2 }, | { } 221 | "ibset", { INTRBGEN, TYUNKNOWN, OPBITSET, 0, 0, 2 }, | { } 222 | "ibits", { INTRBGEN, TYUNKNOWN, OPBITBITS,0, 0, 2 }, | { } 223 | "ishft", { INTRBGEN, TYUNKNOWN, OPBITSH, 0, 0, 2 }, | { } 224 | "ishftc", { INTRBGEN, TYUNKNOWN, OPBITSHC, 0, 0, 2 }, | { } 225 | 226 | "" }; | { } intr.c: In function 'foldminmax': intr.c:520:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 520 | while(cp = cp->nextp) { | ^~ intr.c:542:31: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 542 | while(cp = cp->nextp) { | ^~ intr.c:550:31: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 550 | while(cp = cp->nextp) { | ^~ intr.c:567:23: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 567 | while(cp = cp->nextp) { | ^~ intr.c: In function 'intrcall': intr.c:829:19: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 829 | if(no66flag) | ^ intr.c:869:20: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 869 | if(q = Inline((int)(sp-spectab), mtype, argsp->listp)) | ^ intr.c:879:47: warning: array subscript has type 'char' [-Wchar-subscripts] 879 | callbyvalue[sp->othername], 1); | ~~^~~~~~~~~~~ intr.c: In function 'intrfunct': intr.c:944:29: warning: suggest parentheses around assignment used as truth value [-Wparentheses] 944 | if (i = p->intrval.extflag) { | ^ intr.c: In function 'cast_args': intr.c:1025:12: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] 1025 | if (e -> headblock.vtype != maxtype) | ^ expr.c: In function 'cktype': expr.c:2623:9: warning: 'errs' may be used uninitialized [-Wmaybe-uninitialized] 2623 | err(errs); | ^~~~~~~~~ expr.c:2459:15: note: 'errs' was declared here 2459 | char *errs; | ^~~~ lex.c: In function 'yylex': lex.c:571:12: warning: 'retval' may be used uninitialized [-Wmaybe-uninitialized] 571 | if (retval == SEOF) | ^ lex.c:510:13: note: 'retval' was declared here 510 | int retval; | ^~~~~~ format.c: In function 'do_format': format.c:320:12: warning: 'retval' may be used uninitialized [-Wmaybe-uninitialized] 320 | return retval; | ^~~~~~ format.c:199:12: note: 'retval' was declared here 199 | expptr retval = ENULL; | ^~~~~~ expr.c: In function 'mkexpr': expr.c:2422:35: warning: 'rtag' may be used uninitialized [-Wmaybe-uninitialized] 2422 | if(ltag==TCONST && (rp==0 || rtag==TCONST) ) | ~~~~~~~^~~~~~~~~~~~~~~~ expr.c:2100:19: note: 'rtag' was declared here 2100 | int ltag, rtag; | ^~~~ expr.c: In function 'mkfunct': expr.c:1184:15: warning: 'q' may be used uninitialized [-Wmaybe-uninitialized] 1184 | return(q); | ^ expr.c:1060:16: note: 'q' was declared here 1060 | expptr q; | ^ cc -Wl,-z,relro -Wl,--as-needed -Wl,-z,now -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-ld -Wl,--build-id=sha1 main.o init.o gram.o lex.o proc.o equiv.o data.o format.o expr.o exec.o intr.o io.o misc.o error.o mem.o names.o output.o p1output.o pread.o put.o putpcc.o vax.o formatdata.o parse_args.o niceprintf.o cds.o sysdep.o version.o -o f2c make: Leaving directory '/builddir/build/BUILD/f2c-20210928/src' + make -C libf2c -f makefile.u -j32 'CFLAGS=-O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC' make: Entering directory '/builddir/build/BUILD/f2c-20210928/libf2c' cp f2c.h0 f2c.h cp signal1.h0 signal1.h cp sysdep1.h0 sysdep1.h cc -c f77vers.c cc -c i77vers.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o main.o main.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o s_rnge.o s_rnge.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o abort_.o abort_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o exit_.o exit_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o getarg_.o getarg_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o iargc_.o iargc_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o getenv_.o getenv_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o signal_.o signal_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o s_stop.o s_stop.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o s_paus.o s_paus.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o system_.o system_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o cabs.o cabs.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o ctype.o ctype.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o derf_.o derf_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o derfc_.o derfc_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o erf_.o erf_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o erfc_.o erfc_.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o sig_die.o sig_die.c cc -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -DNO_FPINIT arithchk.c -lm ||\ cc -DNO_LONG_LONG -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -DNO_FPINIT arithchk.c -lm cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_ci.o pow_ci.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_dd.o pow_dd.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_di.o pow_di.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_hh.o pow_hh.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_ii.o pow_ii.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_ri.o pow_ri.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_zi.o pow_zi.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o pow_zz.o pow_zz.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o c_abs.o c_abs.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o c_cos.o c_cos.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o c_div.o c_div.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o c_exp.o c_exp.c arithchk.c: In function 'ccheck': arithchk.c:127:24: warning: zero-length gnu_printf format string [-Wformat-zero-length] 127 | Cray1 = printf(emptyfmt) < 0 ? 0 : 4617762; | ^~~~~~~~ arithchk.c:128:20: warning: zero-length gnu_printf format string [-Wformat-zero-length] 128 | if (printf(emptyfmt, Cray1) >= 0) | ^~~~~~~~ arithchk.c:130:20: warning: zero-length gnu_printf format string [-Wformat-zero-length] 130 | if (printf(emptyfmt, Cray1) >= 0) | ^~~~~~~~ arithchk.c: In function 'need_nancheck': arithchk.c:160:16: warning: variable 't' set but not used [-Wunused-but-set-variable] 160 | double t; | ^ arithchk.c: In function 'main': arithchk.c:190:20: warning: unused variable 'sb' [-Wunused-variable] 190 | size_t sa, sb; | ^~ arithchk.c:190:16: warning: unused variable 'sa' [-Wunused-variable] 190 | size_t sa, sb; | ^~ cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o c_log.o c_log.c cc -c -O2 -flto=auto -ffat-lto-objects -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/OpenCloudOS/OpenCloudOS-hardened-cc1 -fstack-protector-strong -fasynchronous-unwind-tables -fstack-clash-protection -fPIC -o c_sin.o c_sin.c erfc_.c:15:12: error: unknown type name 'real' 15 | REAL erfc_(real *x) | ^~~~ derf_.c:11:14: error: unknown type name 'doublereal'; did you mean 'double'? 11 | double derf_(doublereal *x) | ^~~~~~~~~~ | double derfc_.c:13:15: error: unknown type name 'doublereal'; did you mean 'double'? 13 | double derfc_(doublereal *x) | ^~~~~~~~~~ | double pow_ri.c:9:15: error: unknown type name 'real' 9 | double pow_ri(real *ap, integer *bp) | ^~~~ getarg_.c:17:14: error: unknown type name 'ftnint' 17 | void getarg_(ftnint *n, char *s, ftnlen ls) | ^~~~~~ pow_ri.c:9:25: error: unknown type name 'integer' 9 | double pow_ri(real *ap, integer *bp) | ^~~~~~~ getarg_.c:17:34: error: unknown type name 'ftnlen' 17 | void getarg_(ftnint *n, char *s, ftnlen ls) | ^~~~~~ pow_zi.c:10:19: error: unknown type name 'doublecomplex' 10 | extern void z_div(doublecomplex*, doublecomplex*, doublecomplex*); | ^~~~~~~~~~~~~ pow_zi.c:10:35: error: unknown type name 'doublecomplex' 10 | extern void z_div(doublecomplex*, doublecomplex*, doublecomplex*); | ^~~~~~~~~~~~~ pow_zi.c:10:51: error: unknown type name 'doublecomplex' 10 | extern void z_div(doublecomplex*, doublecomplex*, doublecomplex*); | ^~~~~~~~~~~~~ pow_zi.c:11:13: error: unknown type name 'doublecomplex' 11 | void pow_zi(doublecomplex *p, doublecomplex *a, integer *b) /* p = a**b */ | ^~~~~~~~~~~~~ pow_zi.c:11:31: error: unknown type name 'doublecomplex' 11 | void pow_zi(doublecomplex *p, doublecomplex *a, integer *b) /* p = a**b */ | ^~~~~~~~~~~~~ pow_ci.c:10:20: error: unknown type name 'doublecomplex' 10 | extern void pow_zi(doublecomplex*, doublecomplex*, integer*); | ^~~~~~~~~~~~~ pow_zi.c:11:49: error: unknown type name 'integer' 11 | void pow_zi(doublecomplex *p, doublecomplex *a, integer *b) /* p = a**b */ | ^~~~~~~ pow_ci.c:10:36: error: unknown type name 'doublecomplex' 10 | extern void pow_zi(doublecomplex*, doublecomplex*, integer*); | ^~~~~~~~~~~~~ pow_ci.c:10:52: error: unknown type name 'integer' 10 | extern void pow_zi(doublecomplex*, doublecomplex*, integer*); | ^~~~~~~ c_div.c:12:12: error: unknown type name 'complex'; did you mean 'complex int'? 12 | void c_div(complex *c, complex *a, complex *b) | ^~~~~~~ | complex int pow_ii.c:9:1: error: unknown type name 'integer' 9 | integer pow_ii(integer *ap, integer *bp) | ^~~~~~~ pow_ci.c:11:13: error: unknown type name 'complex'; did you mean 'complex int'? 11 | void pow_ci(complex *p, complex *a, integer *b) /* p = a**b */ | ^~~~~~~ | complex int c_div.c:12:24: error: unknown type name 'complex'; did you mean 'complex int'? 12 | void c_div(complex *c, complex *a, complex *b) | ^~~~~~~ | complex int pow_ii.c:9:16: error: unknown type name 'integer' 9 | integer pow_ii(integer *ap, integer *bp) | ^~~~~~~ pow_ci.c:11:25: error: unknown type name 'complex'; did you mean 'complex int'? 11 | void pow_ci(complex *p, complex *a, integer *b) /* p = a**b */ | ^~~~~~~ | complex int c_div.c:12:36: error: unknown type name 'complex'; did you mean 'complex int'? 12 | void c_div(complex *c, complex *a, complex *b) | ^~~~~~~ | complex int pow_ii.c:9:29: error: unknown type name 'integer' 9 | integer pow_ii(integer *ap, integer *bp) | ^~~~~~~ pow_ci.c:11:37: error: unknown type name 'integer' 11 | void pow_ci(complex *p, complex *a, integer *b) /* p = a**b */ | ^~~~~~~ s_rnge.c:13:8: error: unknown type name 'VOID' 13 | extern VOID sig_die(const char*,int); | ^~~~ s_rnge.c:14:1: error: unknown type name 'integer' 14 | integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) | ^~~~~~~ s_rnge.c:14:28: error: unknown type name 'ftnint' 14 | integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) | ^~~~~~ make: *** [makefile.u:25: derfc_.o] Error 1 make: *** Waiting for unfinished jobs.... make: *** [makefile.u:25: erfc_.o] Error 1 iargc_.c:9:1: error: unknown type name 'ftnint' 9 | ftnint iargc_(void) | ^~~~~~ s_rnge.c:14:56: error: unknown type name 'ftnint' 14 | integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) | ^~~~~~ pow_di.c:9:15: error: unknown type name 'doublereal'; did you mean 'double'? 9 | double pow_di(doublereal *ap, integer *bp) | ^~~~~~~~~~ | double pow_di.c:9:31: error: unknown type name 'integer' 9 | double pow_di(doublereal *ap, integer *bp) | ^~~~~~~ make: *** [makefile.u:25: derf_.o] Error 1 make: *** [makefile.u:25: pow_ri.o] Error 1 erf_.c:15:11: error: unknown type name 'real' 15 | REAL erf_(real *x) | ^~~~ c_abs.c:13:14: error: unknown type name 'complex'; did you mean 'complex int'? 13 | double c_abs(complex *z) | ^~~~~~~ | complex int main.c: In function 'sigfdie': main.c:56:13: warning: type of 'Sigarg' defaults to 'int' [-Wimplicit-int] 56 | static VOID sigfdie(Sigarg) | ^~~~~~~ main.c:58:1: error: 'Use_Sigarg' undeclared (first use in this function); did you mean 'Sigarg'? 58 | Use_Sigarg; | ^~~~~~~~~~ | Sigarg main.c:58:1: note: each undeclared identifier is reported only once for each function it appears in main.c: In function 'sigidie': main.c:63:13: warning: type of 'Sigarg' defaults to 'int' [-Wimplicit-int] 63 | static VOID sigidie(Sigarg) | ^~~~~~~ main.c:65:1: error: 'Use_Sigarg' undeclared (first use in this function); did you mean 'Sigarg'? 65 | Use_Sigarg; | ^~~~~~~~~~ | Sigarg main.c: In function 'sigindie': main.c:78:13: warning: type of 'Sigarg' defaults to 'int' [-Wimplicit-int] 78 | static VOID sigindie(Sigarg) | ^~~~~~~~ main.c:80:1: error: 'Use_Sigarg' undeclared (first use in this function); did you mean 'Sigarg'? 80 | Use_Sigarg; | ^~~~~~~~~~ | Sigarg main.c: In function 'sigtdie': make: *** [makefile.u:25: getarg_.o] Error 1 main.c:84:13: warning: type of 'Sigarg' defaults to 'int' [-Wimplicit-int] 84 | static VOID sigtdie(Sigarg) | ^~~~~~~ make: *** [makefile.u:25: pow_ci.o] Error 1 make: *** [makefile.u:25: pow_di.o] Error 1 main.c:86:1: error: 'Use_Sigarg' undeclared (first use in this function); did you mean 'Sigarg'? 86 | Use_Sigarg; | ^~~~~~~~~~ | Sigarg pow_hh.c:9:1: error: unknown type name 'shortint'; did you mean 'short int'? 9 | shortint pow_hh(shortint *ap, shortint *bp) | ^~~~~~~~ | short int main.c: In function 'main': main.c:115:1: warning: implicit declaration of function 'signal1' [-Wimplicit-function-declaration] 115 | signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */ | ^~~~~~~ pow_hh.c:9:17: error: unknown type name 'shortint'; did you mean 'short int'? 9 | shortint pow_hh(shortint *ap, shortint *bp) | ^~~~~~~~ | short int pow_hh.c:9:31: error: unknown type name 'shortint'; did you mean 'short int'? 9 | shortint pow_hh(shortint *ap, shortint *bp) | ^~~~~~~~ | short int main.c:115:9: error: 'SIGFPE' undeclared (first use in this function) 115 | signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */ | ^~~~~~ system_.c:18:30: error: expected ')' before 'const' 18 | extern char *F77_aloc(ftnlen, const char*); | ^~~~~~ | ) make: *** [makefile.u:25: c_div.o] Error 1 main.c:126:12: error: 'SIGINT' undeclared (first use in this function) 126 | if(signal1(SIGINT, sigindie) == SIG_IGN) | ^~~~~~ system_.c:20:2: error: unknown type name 'integer' 20 | integer | ^~~~~~~ main.c:126:33: error: 'SIG_IGN' undeclared (first use in this function) 126 | if(signal1(SIGINT, sigindie) == SIG_IGN) | ^~~~~~~ system_.c:21:27: error: unknown type name 'ftnlen' 21 | system_(register char *s, ftnlen n) | ^~~~~~ main.c:128:9: error: 'SIGTERM' undeclared (first use in this function) 128 | signal1(SIGTERM,sigtdie); | ^~~~~~~ main.c: At top level: main.c:63:13: warning: 'sigidie' defined but not used [-Wunused-function] 63 | static VOID sigidie(Sigarg) | ^~~~~~~ make: *** [makefile.u:25: c_abs.o] Error 1 make: *** [makefile.u:25: main.o] Error 1 make: *** [makefile.u:25: s_rnge.o] Error 1 make: *** [makefile.u:25: pow_zi.o] Error 1 make: *** [makefile.u:25: iargc_.o] Error 1 make: *** [makefile.u:25: pow_hh.o] Error 1 make: *** [makefile.u:25: system_.o] Error 1 make: *** [makefile.u:25: pow_ii.o] Error 1 make: *** [makefile.u:25: erf_.o] Error 1 pow_zz.c:13:13: error: unknown type name 'doublecomplex' 13 | void pow_zz(doublecomplex *r, doublecomplex *a, doublecomplex *b) | ^~~~~~~~~~~~~ s_stop.c:20:21: error: unknown type name 'ftnlen' 20 | int s_stop(char *s, ftnlen n) | ^~~~~~ signal_.c:7:2: error: unknown type name 'ftnint' 7 | ftnint | ^~~~~~ pow_zz.c:13:31: error: unknown type name 'doublecomplex' 13 | void pow_zz(doublecomplex *r, doublecomplex *a, doublecomplex *b) | ^~~~~~~~~~~~~ s_paus.c:25:8: error: unknown type name 'VOID' 25 | extern VOID f_exit(Void); | ^~~~ s_paus.c:28:9: error: unknown type name 'VOID' 28 | static VOID | ^~~~ s_paus.c: In function 'waitpause': pow_dd.c:12:15: error: unknown type name 'doublereal'; did you mean 'double_t'? 12 | double pow_dd(doublereal *ap, doublereal *bp) | ^~~~~~~~~~ | double_t s_paus.c:31:9: warning: 'return' with no value, in function returning non-void [-Wreturn-type] 31 | return; | ^~~~~~ s_paus.c:29:1: note: declared here 29 | waitpause(Sigarg) | ^~~~~~~~~ s_paus.c: At top level: s_paus.c:35:9: error: unknown type name 'VOID' 35 | static VOID | ^~~~ signal_.c:11:9: error: unknown type name 'integer' 11 | signal_(integer *sigp, sig_pf proc) | ^~~~~~~ pow_zz.c:13:49: error: unknown type name 'doublecomplex' 13 | void pow_zz(doublecomplex *r, doublecomplex *a, doublecomplex *b) | ^~~~~~~~~~~~~ pow_dd.c:12:31: error: unknown type name 'doublereal'; did you mean 'double_t'? 12 | double pow_dd(doublereal *ap, doublereal *bp) | ^~~~~~~~~~ | double_t s_paus.c:58:17: error: unknown type name 'ftnlen' 58 | s_paus(char *s, ftnlen n) | ^~~~~~ c_exp.c:14:12: error: unknown type name 'complex'; did you mean 'complex int'? 14 | void c_exp(complex *r, complex *z) | ^~~~~~~ | complex int make: *** [makefile.u:25: s_stop.o] Error 1 c_exp.c:14:24: error: unknown type name 'complex'; did you mean 'complex int'? 14 | void c_exp(complex *r, complex *z) | ^~~~~~~ | complex int c_cos.c:14:12: error: unknown type name 'complex'; did you mean 'complex int'? 14 | void c_cos(complex *r, complex *z) | ^~~~~~~ | complex int c_cos.c:14:24: error: unknown type name 'complex'; did you mean 'complex int'? 14 | void c_cos(complex *r, complex *z) | ^~~~~~~ | complex int exit_.c:30:7: error: unknown type name 'integer' 30 | exit_(integer *rc) | ^~~~~~~ s_paus.c:39:1: warning: 's_1paus' defined but not used [-Wunused-function] 39 | s_1paus(FILE *fin) | ^~~~~~~ s_paus.c:29:1: warning: 'waitpause' defined but not used [-Wunused-function] 29 | waitpause(Sigarg) | ^~~~~~~~~ getenv_.c:11:30: error: expected ')' before 'const' 11 | extern char *F77_aloc(ftnlen, const char*); | ^~~~~~ | ) getenv_.c:31:35: error: unknown type name 'ftnlen' 31 | getenv_(char *fname, char *value, ftnlen flen, ftnlen vlen) | ^~~~~~ make: *** [makefile.u:25: pow_dd.o] Error 1 make: *** [makefile.u:25: c_cos.o] Error 1 getenv_.c:31:48: error: unknown type name 'ftnlen' 31 | getenv_(char *fname, char *value, ftnlen flen, ftnlen vlen) | ^~~~~~ make: *** [makefile.u:25: signal_.o] Error 1 make: *** [makefile.u:25: pow_zz.o] Error 1 make: *** [makefile.u:25: s_paus.o] Error 1 make: *** [makefile.u:25: c_exp.o] Error 1 make: *** [makefile.u:25: getenv_.o] Error 1 make: *** [makefile.u:25: exit_.o] Error 1 c_log.c:14:12: error: unknown type name 'complex'; did you mean 'complex int'? 14 | void c_log(complex *r, complex *z) | ^~~~~~~ | complex int c_log.c:14:24: error: unknown type name 'complex'; did you mean 'complex int'? 14 | void c_log(complex *r, complex *z) | ^~~~~~~ | complex int make: *** [makefile.u:25: c_log.o] Error 1 ./a.out >arith.h rm -f a.out arithchk.o make: Leaving directory '/builddir/build/BUILD/f2c-20210928/libf2c' error: Bad exit status from /var/tmp/rpm-tmp.rqGwct (%build) RPM build errors: Bad exit status from /var/tmp/rpm-tmp.rqGwct (%build) Child return code was: 1 EXCEPTION: [Error("Command failed: \n # bash --login -c '/usr/bin/rpmbuild -bb --noclean --target loongarch64 --nodeps /builddir/build/SPECS/f2c.spec'\n", 1)] Traceback (most recent call last): File "/usr/lib/python3.11/site-packages/mockbuild/trace_decorator.py", line 93, in trace result = func(*args, **kw) ^^^^^^^^^^^^^^^^^ File "/usr/lib/python3.11/site-packages/mockbuild/util.py", line 612, in do_with_status raise exception.Error("Command failed: \n # %s\n%s" % (cmd_pretty(command, env), output), child.returncode) mockbuild.exception.Error: Command failed: # bash --login -c '/usr/bin/rpmbuild -bb --noclean --target loongarch64 --nodeps /builddir/build/SPECS/f2c.spec'