aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/arith.c
diff options
context:
space:
mode:
authorMartin Liska <mliska@suse.cz>2022-01-14 16:56:44 +0100
committerMartin Liska <mliska@suse.cz>2022-01-17 22:12:04 +0100
commit5c69acb32329d49e58c26fa41ae74229a52b9106 (patch)
treeddb05f9d73afb6f998457d2ac4b720e3b3b60483 /gcc/fortran/arith.c
parent490e23032baaece71f2ec09fa1805064b150fbc2 (diff)
downloadgcc-5c69acb32329d49e58c26fa41ae74229a52b9106.zip
gcc-5c69acb32329d49e58c26fa41ae74229a52b9106.tar.gz
gcc-5c69acb32329d49e58c26fa41ae74229a52b9106.tar.bz2
Rename .c files to .cc files.
gcc/ada/ChangeLog: * adadecode.c: Moved to... * adadecode.cc: ...here. * affinity.c: Moved to... * affinity.cc: ...here. * argv-lynxos178-raven-cert.c: Moved to... * argv-lynxos178-raven-cert.cc: ...here. * argv.c: Moved to... * argv.cc: ...here. * aux-io.c: Moved to... * aux-io.cc: ...here. * cio.c: Moved to... * cio.cc: ...here. * cstreams.c: Moved to... * cstreams.cc: ...here. * env.c: Moved to... * env.cc: ...here. * exit.c: Moved to... * exit.cc: ...here. * expect.c: Moved to... * expect.cc: ...here. * final.c: Moved to... * final.cc: ...here. * gcc-interface/cuintp.c: Moved to... * gcc-interface/cuintp.cc: ...here. * gcc-interface/decl.c: Moved to... * gcc-interface/decl.cc: ...here. * gcc-interface/misc.c: Moved to... * gcc-interface/misc.cc: ...here. * gcc-interface/targtyps.c: Moved to... * gcc-interface/targtyps.cc: ...here. * gcc-interface/trans.c: Moved to... * gcc-interface/trans.cc: ...here. * gcc-interface/utils.c: Moved to... * gcc-interface/utils.cc: ...here. * gcc-interface/utils2.c: Moved to... * gcc-interface/utils2.cc: ...here. * init.c: Moved to... * init.cc: ...here. * initialize.c: Moved to... * initialize.cc: ...here. * libgnarl/thread.c: Moved to... * libgnarl/thread.cc: ...here. * link.c: Moved to... * link.cc: ...here. * locales.c: Moved to... * locales.cc: ...here. * mkdir.c: Moved to... * mkdir.cc: ...here. * raise.c: Moved to... * raise.cc: ...here. * rtfinal.c: Moved to... * rtfinal.cc: ...here. * rtinit.c: Moved to... * rtinit.cc: ...here. * seh_init.c: Moved to... * seh_init.cc: ...here. * sigtramp-armdroid.c: Moved to... * sigtramp-armdroid.cc: ...here. * sigtramp-ios.c: Moved to... * sigtramp-ios.cc: ...here. * sigtramp-qnx.c: Moved to... * sigtramp-qnx.cc: ...here. * sigtramp-vxworks.c: Moved to... * sigtramp-vxworks.cc: ...here. * socket.c: Moved to... * socket.cc: ...here. * tracebak.c: Moved to... * tracebak.cc: ...here. * version.c: Moved to... * version.cc: ...here. * vx_stack_info.c: Moved to... * vx_stack_info.cc: ...here. gcc/ChangeLog: * adjust-alignment.c: Moved to... * adjust-alignment.cc: ...here. * alias.c: Moved to... * alias.cc: ...here. * alloc-pool.c: Moved to... * alloc-pool.cc: ...here. * asan.c: Moved to... * asan.cc: ...here. * attribs.c: Moved to... * attribs.cc: ...here. * auto-inc-dec.c: Moved to... * auto-inc-dec.cc: ...here. * auto-profile.c: Moved to... * auto-profile.cc: ...here. * bb-reorder.c: Moved to... * bb-reorder.cc: ...here. * bitmap.c: Moved to... * bitmap.cc: ...here. * btfout.c: Moved to... * btfout.cc: ...here. * builtins.c: Moved to... * builtins.cc: ...here. * caller-save.c: Moved to... * caller-save.cc: ...here. * calls.c: Moved to... * calls.cc: ...here. * ccmp.c: Moved to... * ccmp.cc: ...here. * cfg.c: Moved to... * cfg.cc: ...here. * cfganal.c: Moved to... * cfganal.cc: ...here. * cfgbuild.c: Moved to... * cfgbuild.cc: ...here. * cfgcleanup.c: Moved to... * cfgcleanup.cc: ...here. * cfgexpand.c: Moved to... * cfgexpand.cc: ...here. * cfghooks.c: Moved to... * cfghooks.cc: ...here. * cfgloop.c: Moved to... * cfgloop.cc: ...here. * cfgloopanal.c: Moved to... * cfgloopanal.cc: ...here. * cfgloopmanip.c: Moved to... * cfgloopmanip.cc: ...here. * cfgrtl.c: Moved to... * cfgrtl.cc: ...here. * cgraph.c: Moved to... * cgraph.cc: ...here. * cgraphbuild.c: Moved to... * cgraphbuild.cc: ...here. * cgraphclones.c: Moved to... * cgraphclones.cc: ...here. * cgraphunit.c: Moved to... * cgraphunit.cc: ...here. * collect-utils.c: Moved to... * collect-utils.cc: ...here. * collect2-aix.c: Moved to... * collect2-aix.cc: ...here. * collect2.c: Moved to... * collect2.cc: ...here. * combine-stack-adj.c: Moved to... * combine-stack-adj.cc: ...here. * combine.c: Moved to... * combine.cc: ...here. * common/common-targhooks.c: Moved to... * common/common-targhooks.cc: ...here. * common/config/aarch64/aarch64-common.c: Moved to... * common/config/aarch64/aarch64-common.cc: ...here. * common/config/alpha/alpha-common.c: Moved to... * common/config/alpha/alpha-common.cc: ...here. * common/config/arc/arc-common.c: Moved to... * common/config/arc/arc-common.cc: ...here. * common/config/arm/arm-common.c: Moved to... * common/config/arm/arm-common.cc: ...here. * common/config/avr/avr-common.c: Moved to... * common/config/avr/avr-common.cc: ...here. * common/config/bfin/bfin-common.c: Moved to... * common/config/bfin/bfin-common.cc: ...here. * common/config/bpf/bpf-common.c: Moved to... * common/config/bpf/bpf-common.cc: ...here. * common/config/c6x/c6x-common.c: Moved to... * common/config/c6x/c6x-common.cc: ...here. * common/config/cr16/cr16-common.c: Moved to... * common/config/cr16/cr16-common.cc: ...here. * common/config/cris/cris-common.c: Moved to... * common/config/cris/cris-common.cc: ...here. * common/config/csky/csky-common.c: Moved to... * common/config/csky/csky-common.cc: ...here. * common/config/default-common.c: Moved to... * common/config/default-common.cc: ...here. * common/config/epiphany/epiphany-common.c: Moved to... * common/config/epiphany/epiphany-common.cc: ...here. * common/config/fr30/fr30-common.c: Moved to... * common/config/fr30/fr30-common.cc: ...here. * common/config/frv/frv-common.c: Moved to... * common/config/frv/frv-common.cc: ...here. * common/config/gcn/gcn-common.c: Moved to... * common/config/gcn/gcn-common.cc: ...here. * common/config/h8300/h8300-common.c: Moved to... * common/config/h8300/h8300-common.cc: ...here. * common/config/i386/i386-common.c: Moved to... * common/config/i386/i386-common.cc: ...here. * common/config/ia64/ia64-common.c: Moved to... * common/config/ia64/ia64-common.cc: ...here. * common/config/iq2000/iq2000-common.c: Moved to... * common/config/iq2000/iq2000-common.cc: ...here. * common/config/lm32/lm32-common.c: Moved to... * common/config/lm32/lm32-common.cc: ...here. * common/config/m32r/m32r-common.c: Moved to... * common/config/m32r/m32r-common.cc: ...here. * common/config/m68k/m68k-common.c: Moved to... * common/config/m68k/m68k-common.cc: ...here. * common/config/mcore/mcore-common.c: Moved to... * common/config/mcore/mcore-common.cc: ...here. * common/config/microblaze/microblaze-common.c: Moved to... * common/config/microblaze/microblaze-common.cc: ...here. * common/config/mips/mips-common.c: Moved to... * common/config/mips/mips-common.cc: ...here. * common/config/mmix/mmix-common.c: Moved to... * common/config/mmix/mmix-common.cc: ...here. * common/config/mn10300/mn10300-common.c: Moved to... * common/config/mn10300/mn10300-common.cc: ...here. * common/config/msp430/msp430-common.c: Moved to... * common/config/msp430/msp430-common.cc: ...here. * common/config/nds32/nds32-common.c: Moved to... * common/config/nds32/nds32-common.cc: ...here. * common/config/nios2/nios2-common.c: Moved to... * common/config/nios2/nios2-common.cc: ...here. * common/config/nvptx/nvptx-common.c: Moved to... * common/config/nvptx/nvptx-common.cc: ...here. * common/config/or1k/or1k-common.c: Moved to... * common/config/or1k/or1k-common.cc: ...here. * common/config/pa/pa-common.c: Moved to... * common/config/pa/pa-common.cc: ...here. * common/config/pdp11/pdp11-common.c: Moved to... * common/config/pdp11/pdp11-common.cc: ...here. * common/config/pru/pru-common.c: Moved to... * common/config/pru/pru-common.cc: ...here. * common/config/riscv/riscv-common.c: Moved to... * common/config/riscv/riscv-common.cc: ...here. * common/config/rs6000/rs6000-common.c: Moved to... * common/config/rs6000/rs6000-common.cc: ...here. * common/config/rx/rx-common.c: Moved to... * common/config/rx/rx-common.cc: ...here. * common/config/s390/s390-common.c: Moved to... * common/config/s390/s390-common.cc: ...here. * common/config/sh/sh-common.c: Moved to... * common/config/sh/sh-common.cc: ...here. * common/config/sparc/sparc-common.c: Moved to... * common/config/sparc/sparc-common.cc: ...here. * common/config/tilegx/tilegx-common.c: Moved to... * common/config/tilegx/tilegx-common.cc: ...here. * common/config/tilepro/tilepro-common.c: Moved to... * common/config/tilepro/tilepro-common.cc: ...here. * common/config/v850/v850-common.c: Moved to... * common/config/v850/v850-common.cc: ...here. * common/config/vax/vax-common.c: Moved to... * common/config/vax/vax-common.cc: ...here. * common/config/visium/visium-common.c: Moved to... * common/config/visium/visium-common.cc: ...here. * common/config/xstormy16/xstormy16-common.c: Moved to... * common/config/xstormy16/xstormy16-common.cc: ...here. * common/config/xtensa/xtensa-common.c: Moved to... * common/config/xtensa/xtensa-common.cc: ...here. * compare-elim.c: Moved to... * compare-elim.cc: ...here. * config/aarch64/aarch64-bti-insert.c: Moved to... * config/aarch64/aarch64-bti-insert.cc: ...here. * config/aarch64/aarch64-builtins.c: Moved to... * config/aarch64/aarch64-builtins.cc: ...here. * config/aarch64/aarch64-c.c: Moved to... * config/aarch64/aarch64-c.cc: ...here. * config/aarch64/aarch64-d.c: Moved to... * config/aarch64/aarch64-d.cc: ...here. * config/aarch64/aarch64.c: Moved to... * config/aarch64/aarch64.cc: ...here. * config/aarch64/cortex-a57-fma-steering.c: Moved to... * config/aarch64/cortex-a57-fma-steering.cc: ...here. * config/aarch64/driver-aarch64.c: Moved to... * config/aarch64/driver-aarch64.cc: ...here. * config/aarch64/falkor-tag-collision-avoidance.c: Moved to... * config/aarch64/falkor-tag-collision-avoidance.cc: ...here. * config/aarch64/host-aarch64-darwin.c: Moved to... * config/aarch64/host-aarch64-darwin.cc: ...here. * config/alpha/alpha.c: Moved to... * config/alpha/alpha.cc: ...here. * config/alpha/driver-alpha.c: Moved to... * config/alpha/driver-alpha.cc: ...here. * config/arc/arc-c.c: Moved to... * config/arc/arc-c.cc: ...here. * config/arc/arc.c: Moved to... * config/arc/arc.cc: ...here. * config/arc/driver-arc.c: Moved to... * config/arc/driver-arc.cc: ...here. * config/arm/aarch-common.c: Moved to... * config/arm/aarch-common.cc: ...here. * config/arm/arm-builtins.c: Moved to... * config/arm/arm-builtins.cc: ...here. * config/arm/arm-c.c: Moved to... * config/arm/arm-c.cc: ...here. * config/arm/arm-d.c: Moved to... * config/arm/arm-d.cc: ...here. * config/arm/arm.c: Moved to... * config/arm/arm.cc: ...here. * config/arm/driver-arm.c: Moved to... * config/arm/driver-arm.cc: ...here. * config/avr/avr-c.c: Moved to... * config/avr/avr-c.cc: ...here. * config/avr/avr-devices.c: Moved to... * config/avr/avr-devices.cc: ...here. * config/avr/avr-log.c: Moved to... * config/avr/avr-log.cc: ...here. * config/avr/avr.c: Moved to... * config/avr/avr.cc: ...here. * config/avr/driver-avr.c: Moved to... * config/avr/driver-avr.cc: ...here. * config/avr/gen-avr-mmcu-specs.c: Moved to... * config/avr/gen-avr-mmcu-specs.cc: ...here. * config/avr/gen-avr-mmcu-texi.c: Moved to... * config/avr/gen-avr-mmcu-texi.cc: ...here. * config/bfin/bfin.c: Moved to... * config/bfin/bfin.cc: ...here. * config/bpf/bpf.c: Moved to... * config/bpf/bpf.cc: ...here. * config/bpf/coreout.c: Moved to... * config/bpf/coreout.cc: ...here. * config/c6x/c6x.c: Moved to... * config/c6x/c6x.cc: ...here. * config/cr16/cr16.c: Moved to... * config/cr16/cr16.cc: ...here. * config/cris/cris.c: Moved to... * config/cris/cris.cc: ...here. * config/csky/csky.c: Moved to... * config/csky/csky.cc: ...here. * config/darwin-c.c: Moved to... * config/darwin-c.cc: ...here. * config/darwin-d.c: Moved to... * config/darwin-d.cc: ...here. * config/darwin-driver.c: Moved to... * config/darwin-driver.cc: ...here. * config/darwin-f.c: Moved to... * config/darwin-f.cc: ...here. * config/darwin.c: Moved to... * config/darwin.cc: ...here. * config/default-c.c: Moved to... * config/default-c.cc: ...here. * config/default-d.c: Moved to... * config/default-d.cc: ...here. * config/dragonfly-d.c: Moved to... * config/dragonfly-d.cc: ...here. * config/epiphany/epiphany.c: Moved to... * config/epiphany/epiphany.cc: ...here. * config/epiphany/mode-switch-use.c: Moved to... * config/epiphany/mode-switch-use.cc: ...here. * config/epiphany/resolve-sw-modes.c: Moved to... * config/epiphany/resolve-sw-modes.cc: ...here. * config/fr30/fr30.c: Moved to... * config/fr30/fr30.cc: ...here. * config/freebsd-d.c: Moved to... * config/freebsd-d.cc: ...here. * config/frv/frv.c: Moved to... * config/frv/frv.cc: ...here. * config/ft32/ft32.c: Moved to... * config/ft32/ft32.cc: ...here. * config/gcn/driver-gcn.c: Moved to... * config/gcn/driver-gcn.cc: ...here. * config/gcn/gcn-run.c: Moved to... * config/gcn/gcn-run.cc: ...here. * config/gcn/gcn-tree.c: Moved to... * config/gcn/gcn-tree.cc: ...here. * config/gcn/gcn.c: Moved to... * config/gcn/gcn.cc: ...here. * config/gcn/mkoffload.c: Moved to... * config/gcn/mkoffload.cc: ...here. * config/glibc-c.c: Moved to... * config/glibc-c.cc: ...here. * config/glibc-d.c: Moved to... * config/glibc-d.cc: ...here. * config/h8300/h8300.c: Moved to... * config/h8300/h8300.cc: ...here. * config/host-darwin.c: Moved to... * config/host-darwin.cc: ...here. * config/host-hpux.c: Moved to... * config/host-hpux.cc: ...here. * config/host-linux.c: Moved to... * config/host-linux.cc: ...here. * config/host-netbsd.c: Moved to... * config/host-netbsd.cc: ...here. * config/host-openbsd.c: Moved to... * config/host-openbsd.cc: ...here. * config/host-solaris.c: Moved to... * config/host-solaris.cc: ...here. * config/i386/djgpp.c: Moved to... * config/i386/djgpp.cc: ...here. * config/i386/driver-i386.c: Moved to... * config/i386/driver-i386.cc: ...here. * config/i386/driver-mingw32.c: Moved to... * config/i386/driver-mingw32.cc: ...here. * config/i386/gnu-property.c: Moved to... * config/i386/gnu-property.cc: ...here. * config/i386/host-cygwin.c: Moved to... * config/i386/host-cygwin.cc: ...here. * config/i386/host-i386-darwin.c: Moved to... * config/i386/host-i386-darwin.cc: ...here. * config/i386/host-mingw32.c: Moved to... * config/i386/host-mingw32.cc: ...here. * config/i386/i386-builtins.c: Moved to... * config/i386/i386-builtins.cc: ...here. * config/i386/i386-c.c: Moved to... * config/i386/i386-c.cc: ...here. * config/i386/i386-d.c: Moved to... * config/i386/i386-d.cc: ...here. * config/i386/i386-expand.c: Moved to... * config/i386/i386-expand.cc: ...here. * config/i386/i386-features.c: Moved to... * config/i386/i386-features.cc: ...here. * config/i386/i386-options.c: Moved to... * config/i386/i386-options.cc: ...here. * config/i386/i386.c: Moved to... * config/i386/i386.cc: ...here. * config/i386/intelmic-mkoffload.c: Moved to... * config/i386/intelmic-mkoffload.cc: ...here. * config/i386/msformat-c.c: Moved to... * config/i386/msformat-c.cc: ...here. * config/i386/winnt-cxx.c: Moved to... * config/i386/winnt-cxx.cc: ...here. * config/i386/winnt-d.c: Moved to... * config/i386/winnt-d.cc: ...here. * config/i386/winnt-stubs.c: Moved to... * config/i386/winnt-stubs.cc: ...here. * config/i386/winnt.c: Moved to... * config/i386/winnt.cc: ...here. * config/i386/x86-tune-sched-atom.c: Moved to... * config/i386/x86-tune-sched-atom.cc: ...here. * config/i386/x86-tune-sched-bd.c: Moved to... * config/i386/x86-tune-sched-bd.cc: ...here. * config/i386/x86-tune-sched-core.c: Moved to... * config/i386/x86-tune-sched-core.cc: ...here. * config/i386/x86-tune-sched.c: Moved to... * config/i386/x86-tune-sched.cc: ...here. * config/ia64/ia64-c.c: Moved to... * config/ia64/ia64-c.cc: ...here. * config/ia64/ia64.c: Moved to... * config/ia64/ia64.cc: ...here. * config/iq2000/iq2000.c: Moved to... * config/iq2000/iq2000.cc: ...here. * config/linux.c: Moved to... * config/linux.cc: ...here. * config/lm32/lm32.c: Moved to... * config/lm32/lm32.cc: ...here. * config/m32c/m32c-pragma.c: Moved to... * config/m32c/m32c-pragma.cc: ...here. * config/m32c/m32c.c: Moved to... * config/m32c/m32c.cc: ...here. * config/m32r/m32r.c: Moved to... * config/m32r/m32r.cc: ...here. * config/m68k/m68k.c: Moved to... * config/m68k/m68k.cc: ...here. * config/mcore/mcore.c: Moved to... * config/mcore/mcore.cc: ...here. * config/microblaze/microblaze-c.c: Moved to... * config/microblaze/microblaze-c.cc: ...here. * config/microblaze/microblaze.c: Moved to... * config/microblaze/microblaze.cc: ...here. * config/mips/driver-native.c: Moved to... * config/mips/driver-native.cc: ...here. * config/mips/frame-header-opt.c: Moved to... * config/mips/frame-header-opt.cc: ...here. * config/mips/mips-d.c: Moved to... * config/mips/mips-d.cc: ...here. * config/mips/mips.c: Moved to... * config/mips/mips.cc: ...here. * config/mmix/mmix.c: Moved to... * config/mmix/mmix.cc: ...here. * config/mn10300/mn10300.c: Moved to... * config/mn10300/mn10300.cc: ...here. * config/moxie/moxie.c: Moved to... * config/moxie/moxie.cc: ...here. * config/msp430/driver-msp430.c: Moved to... * config/msp430/driver-msp430.cc: ...here. * config/msp430/msp430-c.c: Moved to... * config/msp430/msp430-c.cc: ...here. * config/msp430/msp430-devices.c: Moved to... * config/msp430/msp430-devices.cc: ...here. * config/msp430/msp430.c: Moved to... * config/msp430/msp430.cc: ...here. * config/nds32/nds32-cost.c: Moved to... * config/nds32/nds32-cost.cc: ...here. * config/nds32/nds32-fp-as-gp.c: Moved to... * config/nds32/nds32-fp-as-gp.cc: ...here. * config/nds32/nds32-intrinsic.c: Moved to... * config/nds32/nds32-intrinsic.cc: ...here. * config/nds32/nds32-isr.c: Moved to... * config/nds32/nds32-isr.cc: ...here. * config/nds32/nds32-md-auxiliary.c: Moved to... * config/nds32/nds32-md-auxiliary.cc: ...here. * config/nds32/nds32-memory-manipulation.c: Moved to... * config/nds32/nds32-memory-manipulation.cc: ...here. * config/nds32/nds32-pipelines-auxiliary.c: Moved to... * config/nds32/nds32-pipelines-auxiliary.cc: ...here. * config/nds32/nds32-predicates.c: Moved to... * config/nds32/nds32-predicates.cc: ...here. * config/nds32/nds32-relax-opt.c: Moved to... * config/nds32/nds32-relax-opt.cc: ...here. * config/nds32/nds32-utils.c: Moved to... * config/nds32/nds32-utils.cc: ...here. * config/nds32/nds32.c: Moved to... * config/nds32/nds32.cc: ...here. * config/netbsd-d.c: Moved to... * config/netbsd-d.cc: ...here. * config/netbsd.c: Moved to... * config/netbsd.cc: ...here. * config/nios2/nios2.c: Moved to... * config/nios2/nios2.cc: ...here. * config/nvptx/mkoffload.c: Moved to... * config/nvptx/mkoffload.cc: ...here. * config/nvptx/nvptx-c.c: Moved to... * config/nvptx/nvptx-c.cc: ...here. * config/nvptx/nvptx.c: Moved to... * config/nvptx/nvptx.cc: ...here. * config/openbsd-d.c: Moved to... * config/openbsd-d.cc: ...here. * config/or1k/or1k.c: Moved to... * config/or1k/or1k.cc: ...here. * config/pa/pa-d.c: Moved to... * config/pa/pa-d.cc: ...here. * config/pa/pa.c: Moved to... * config/pa/pa.cc: ...here. * config/pdp11/pdp11.c: Moved to... * config/pdp11/pdp11.cc: ...here. * config/pru/pru-passes.c: Moved to... * config/pru/pru-passes.cc: ...here. * config/pru/pru-pragma.c: Moved to... * config/pru/pru-pragma.cc: ...here. * config/pru/pru.c: Moved to... * config/pru/pru.cc: ...here. * config/riscv/riscv-builtins.c: Moved to... * config/riscv/riscv-builtins.cc: ...here. * config/riscv/riscv-c.c: Moved to... * config/riscv/riscv-c.cc: ...here. * config/riscv/riscv-d.c: Moved to... * config/riscv/riscv-d.cc: ...here. * config/riscv/riscv-shorten-memrefs.c: Moved to... * config/riscv/riscv-shorten-memrefs.cc: ...here. * config/riscv/riscv-sr.c: Moved to... * config/riscv/riscv-sr.cc: ...here. * config/riscv/riscv.c: Moved to... * config/riscv/riscv.cc: ...here. * config/rl78/rl78-c.c: Moved to... * config/rl78/rl78-c.cc: ...here. * config/rl78/rl78.c: Moved to... * config/rl78/rl78.cc: ...here. * config/rs6000/driver-rs6000.c: Moved to... * config/rs6000/driver-rs6000.cc: ...here. * config/rs6000/host-darwin.c: Moved to... * config/rs6000/host-darwin.cc: ...here. * config/rs6000/host-ppc64-darwin.c: Moved to... * config/rs6000/host-ppc64-darwin.cc: ...here. * config/rs6000/rbtree.c: Moved to... * config/rs6000/rbtree.cc: ...here. * config/rs6000/rs6000-c.c: Moved to... * config/rs6000/rs6000-c.cc: ...here. * config/rs6000/rs6000-call.c: Moved to... * config/rs6000/rs6000-call.cc: ...here. * config/rs6000/rs6000-d.c: Moved to... * config/rs6000/rs6000-d.cc: ...here. * config/rs6000/rs6000-gen-builtins.c: Moved to... * config/rs6000/rs6000-gen-builtins.cc: ...here. * config/rs6000/rs6000-linux.c: Moved to... * config/rs6000/rs6000-linux.cc: ...here. * config/rs6000/rs6000-logue.c: Moved to... * config/rs6000/rs6000-logue.cc: ...here. * config/rs6000/rs6000-p8swap.c: Moved to... * config/rs6000/rs6000-p8swap.cc: ...here. * config/rs6000/rs6000-pcrel-opt.c: Moved to... * config/rs6000/rs6000-pcrel-opt.cc: ...here. * config/rs6000/rs6000-string.c: Moved to... * config/rs6000/rs6000-string.cc: ...here. * config/rs6000/rs6000.c: Moved to... * config/rs6000/rs6000.cc: ...here. * config/rx/rx.c: Moved to... * config/rx/rx.cc: ...here. * config/s390/driver-native.c: Moved to... * config/s390/driver-native.cc: ...here. * config/s390/s390-c.c: Moved to... * config/s390/s390-c.cc: ...here. * config/s390/s390-d.c: Moved to... * config/s390/s390-d.cc: ...here. * config/s390/s390.c: Moved to... * config/s390/s390.cc: ...here. * config/sh/divtab-sh4-300.c: Moved to... * config/sh/divtab-sh4-300.cc: ...here. * config/sh/divtab-sh4.c: Moved to... * config/sh/divtab-sh4.cc: ...here. * config/sh/divtab.c: Moved to... * config/sh/divtab.cc: ...here. * config/sh/sh-c.c: Moved to... * config/sh/sh-c.cc: ...here. * config/sh/sh.c: Moved to... * config/sh/sh.cc: ...here. * config/sol2-c.c: Moved to... * config/sol2-c.cc: ...here. * config/sol2-cxx.c: Moved to... * config/sol2-cxx.cc: ...here. * config/sol2-d.c: Moved to... * config/sol2-d.cc: ...here. * config/sol2-stubs.c: Moved to... * config/sol2-stubs.cc: ...here. * config/sol2.c: Moved to... * config/sol2.cc: ...here. * config/sparc/driver-sparc.c: Moved to... * config/sparc/driver-sparc.cc: ...here. * config/sparc/sparc-c.c: Moved to... * config/sparc/sparc-c.cc: ...here. * config/sparc/sparc-d.c: Moved to... * config/sparc/sparc-d.cc: ...here. * config/sparc/sparc.c: Moved to... * config/sparc/sparc.cc: ...here. * config/stormy16/stormy16.c: Moved to... * config/stormy16/stormy16.cc: ...here. * config/tilegx/mul-tables.c: Moved to... * config/tilegx/mul-tables.cc: ...here. * config/tilegx/tilegx-c.c: Moved to... * config/tilegx/tilegx-c.cc: ...here. * config/tilegx/tilegx.c: Moved to... * config/tilegx/tilegx.cc: ...here. * config/tilepro/mul-tables.c: Moved to... * config/tilepro/mul-tables.cc: ...here. * config/tilepro/tilepro-c.c: Moved to... * config/tilepro/tilepro-c.cc: ...here. * config/tilepro/tilepro.c: Moved to... * config/tilepro/tilepro.cc: ...here. * config/v850/v850-c.c: Moved to... * config/v850/v850-c.cc: ...here. * config/v850/v850.c: Moved to... * config/v850/v850.cc: ...here. * config/vax/vax.c: Moved to... * config/vax/vax.cc: ...here. * config/visium/visium.c: Moved to... * config/visium/visium.cc: ...here. * config/vms/vms-c.c: Moved to... * config/vms/vms-c.cc: ...here. * config/vms/vms-f.c: Moved to... * config/vms/vms-f.cc: ...here. * config/vms/vms.c: Moved to... * config/vms/vms.cc: ...here. * config/vxworks-c.c: Moved to... * config/vxworks-c.cc: ...here. * config/vxworks.c: Moved to... * config/vxworks.cc: ...here. * config/winnt-c.c: Moved to... * config/winnt-c.cc: ...here. * config/xtensa/xtensa.c: Moved to... * config/xtensa/xtensa.cc: ...here. * context.c: Moved to... * context.cc: ...here. * convert.c: Moved to... * convert.cc: ...here. * coverage.c: Moved to... * coverage.cc: ...here. * cppbuiltin.c: Moved to... * cppbuiltin.cc: ...here. * cppdefault.c: Moved to... * cppdefault.cc: ...here. * cprop.c: Moved to... * cprop.cc: ...here. * cse.c: Moved to... * cse.cc: ...here. * cselib.c: Moved to... * cselib.cc: ...here. * ctfc.c: Moved to... * ctfc.cc: ...here. * ctfout.c: Moved to... * ctfout.cc: ...here. * data-streamer-in.c: Moved to... * data-streamer-in.cc: ...here. * data-streamer-out.c: Moved to... * data-streamer-out.cc: ...here. * data-streamer.c: Moved to... * data-streamer.cc: ...here. * dbgcnt.c: Moved to... * dbgcnt.cc: ...here. * dbxout.c: Moved to... * dbxout.cc: ...here. * dce.c: Moved to... * dce.cc: ...here. * ddg.c: Moved to... * ddg.cc: ...here. * debug.c: Moved to... * debug.cc: ...here. * df-core.c: Moved to... * df-core.cc: ...here. * df-problems.c: Moved to... * df-problems.cc: ...here. * df-scan.c: Moved to... * df-scan.cc: ...here. * dfp.c: Moved to... * dfp.cc: ...here. * diagnostic-color.c: Moved to... * diagnostic-color.cc: ...here. * diagnostic-show-locus.c: Moved to... * diagnostic-show-locus.cc: ...here. * diagnostic-spec.c: Moved to... * diagnostic-spec.cc: ...here. * diagnostic.c: Moved to... * diagnostic.cc: ...here. * dojump.c: Moved to... * dojump.cc: ...here. * dominance.c: Moved to... * dominance.cc: ...here. * domwalk.c: Moved to... * domwalk.cc: ...here. * double-int.c: Moved to... * double-int.cc: ...here. * dse.c: Moved to... * dse.cc: ...here. * dumpfile.c: Moved to... * dumpfile.cc: ...here. * dwarf2asm.c: Moved to... * dwarf2asm.cc: ...here. * dwarf2cfi.c: Moved to... * dwarf2cfi.cc: ...here. * dwarf2ctf.c: Moved to... * dwarf2ctf.cc: ...here. * dwarf2out.c: Moved to... * dwarf2out.cc: ...here. * early-remat.c: Moved to... * early-remat.cc: ...here. * edit-context.c: Moved to... * edit-context.cc: ...here. * emit-rtl.c: Moved to... * emit-rtl.cc: ...here. * errors.c: Moved to... * errors.cc: ...here. * et-forest.c: Moved to... * et-forest.cc: ...here. * except.c: Moved to... * except.cc: ...here. * explow.c: Moved to... * explow.cc: ...here. * expmed.c: Moved to... * expmed.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * fibonacci_heap.c: Moved to... * fibonacci_heap.cc: ...here. * file-find.c: Moved to... * file-find.cc: ...here. * file-prefix-map.c: Moved to... * file-prefix-map.cc: ...here. * final.c: Moved to... * final.cc: ...here. * fixed-value.c: Moved to... * fixed-value.cc: ...here. * fold-const-call.c: Moved to... * fold-const-call.cc: ...here. * fold-const.c: Moved to... * fold-const.cc: ...here. * fp-test.c: Moved to... * fp-test.cc: ...here. * function-tests.c: Moved to... * function-tests.cc: ...here. * function.c: Moved to... * function.cc: ...here. * fwprop.c: Moved to... * fwprop.cc: ...here. * gcc-ar.c: Moved to... * gcc-ar.cc: ...here. * gcc-main.c: Moved to... * gcc-main.cc: ...here. * gcc-rich-location.c: Moved to... * gcc-rich-location.cc: ...here. * gcc.c: Moved to... * gcc.cc: ...here. * gcov-dump.c: Moved to... * gcov-dump.cc: ...here. * gcov-io.c: Moved to... * gcov-io.cc: ...here. * gcov-tool.c: Moved to... * gcov-tool.cc: ...here. * gcov.c: Moved to... * gcov.cc: ...here. * gcse-common.c: Moved to... * gcse-common.cc: ...here. * gcse.c: Moved to... * gcse.cc: ...here. * genattr-common.c: Moved to... * genattr-common.cc: ...here. * genattr.c: Moved to... * genattr.cc: ...here. * genattrtab.c: Moved to... * genattrtab.cc: ...here. * genautomata.c: Moved to... * genautomata.cc: ...here. * gencfn-macros.c: Moved to... * gencfn-macros.cc: ...here. * gencheck.c: Moved to... * gencheck.cc: ...here. * genchecksum.c: Moved to... * genchecksum.cc: ...here. * gencodes.c: Moved to... * gencodes.cc: ...here. * genconditions.c: Moved to... * genconditions.cc: ...here. * genconfig.c: Moved to... * genconfig.cc: ...here. * genconstants.c: Moved to... * genconstants.cc: ...here. * genemit.c: Moved to... * genemit.cc: ...here. * genenums.c: Moved to... * genenums.cc: ...here. * generic-match-head.c: Moved to... * generic-match-head.cc: ...here. * genextract.c: Moved to... * genextract.cc: ...here. * genflags.c: Moved to... * genflags.cc: ...here. * gengenrtl.c: Moved to... * gengenrtl.cc: ...here. * gengtype-parse.c: Moved to... * gengtype-parse.cc: ...here. * gengtype-state.c: Moved to... * gengtype-state.cc: ...here. * gengtype.c: Moved to... * gengtype.cc: ...here. * genhooks.c: Moved to... * genhooks.cc: ...here. * genmatch.c: Moved to... * genmatch.cc: ...here. * genmddeps.c: Moved to... * genmddeps.cc: ...here. * genmddump.c: Moved to... * genmddump.cc: ...here. * genmodes.c: Moved to... * genmodes.cc: ...here. * genopinit.c: Moved to... * genopinit.cc: ...here. * genoutput.c: Moved to... * genoutput.cc: ...here. * genpeep.c: Moved to... * genpeep.cc: ...here. * genpreds.c: Moved to... * genpreds.cc: ...here. * genrecog.c: Moved to... * genrecog.cc: ...here. * gensupport.c: Moved to... * gensupport.cc: ...here. * gentarget-def.c: Moved to... * gentarget-def.cc: ...here. * genversion.c: Moved to... * genversion.cc: ...here. * ggc-common.c: Moved to... * ggc-common.cc: ...here. * ggc-none.c: Moved to... * ggc-none.cc: ...here. * ggc-page.c: Moved to... * ggc-page.cc: ...here. * ggc-tests.c: Moved to... * ggc-tests.cc: ...here. * gimple-builder.c: Moved to... * gimple-builder.cc: ...here. * gimple-expr.c: Moved to... * gimple-expr.cc: ...here. * gimple-fold.c: Moved to... * gimple-fold.cc: ...here. * gimple-iterator.c: Moved to... * gimple-iterator.cc: ...here. * gimple-laddress.c: Moved to... * gimple-laddress.cc: ...here. * gimple-loop-jam.c: Moved to... * gimple-loop-jam.cc: ...here. * gimple-low.c: Moved to... * gimple-low.cc: ...here. * gimple-match-head.c: Moved to... * gimple-match-head.cc: ...here. * gimple-pretty-print.c: Moved to... * gimple-pretty-print.cc: ...here. * gimple-ssa-backprop.c: Moved to... * gimple-ssa-backprop.cc: ...here. * gimple-ssa-evrp-analyze.c: Moved to... * gimple-ssa-evrp-analyze.cc: ...here. * gimple-ssa-evrp.c: Moved to... * gimple-ssa-evrp.cc: ...here. * gimple-ssa-isolate-paths.c: Moved to... * gimple-ssa-isolate-paths.cc: ...here. * gimple-ssa-nonnull-compare.c: Moved to... * gimple-ssa-nonnull-compare.cc: ...here. * gimple-ssa-split-paths.c: Moved to... * gimple-ssa-split-paths.cc: ...here. * gimple-ssa-sprintf.c: Moved to... * gimple-ssa-sprintf.cc: ...here. * gimple-ssa-store-merging.c: Moved to... * gimple-ssa-store-merging.cc: ...here. * gimple-ssa-strength-reduction.c: Moved to... * gimple-ssa-strength-reduction.cc: ...here. * gimple-ssa-warn-alloca.c: Moved to... * gimple-ssa-warn-alloca.cc: ...here. * gimple-ssa-warn-restrict.c: Moved to... * gimple-ssa-warn-restrict.cc: ...here. * gimple-streamer-in.c: Moved to... * gimple-streamer-in.cc: ...here. * gimple-streamer-out.c: Moved to... * gimple-streamer-out.cc: ...here. * gimple-walk.c: Moved to... * gimple-walk.cc: ...here. * gimple-warn-recursion.c: Moved to... * gimple-warn-recursion.cc: ...here. * gimple.c: Moved to... * gimple.cc: ...here. * gimplify-me.c: Moved to... * gimplify-me.cc: ...here. * gimplify.c: Moved to... * gimplify.cc: ...here. * godump.c: Moved to... * godump.cc: ...here. * graph.c: Moved to... * graph.cc: ...here. * graphds.c: Moved to... * graphds.cc: ...here. * graphite-dependences.c: Moved to... * graphite-dependences.cc: ...here. * graphite-isl-ast-to-gimple.c: Moved to... * graphite-isl-ast-to-gimple.cc: ...here. * graphite-optimize-isl.c: Moved to... * graphite-optimize-isl.cc: ...here. * graphite-poly.c: Moved to... * graphite-poly.cc: ...here. * graphite-scop-detection.c: Moved to... * graphite-scop-detection.cc: ...here. * graphite-sese-to-poly.c: Moved to... * graphite-sese-to-poly.cc: ...here. * graphite.c: Moved to... * graphite.cc: ...here. * haifa-sched.c: Moved to... * haifa-sched.cc: ...here. * hash-map-tests.c: Moved to... * hash-map-tests.cc: ...here. * hash-set-tests.c: Moved to... * hash-set-tests.cc: ...here. * hash-table.c: Moved to... * hash-table.cc: ...here. * hooks.c: Moved to... * hooks.cc: ...here. * host-default.c: Moved to... * host-default.cc: ...here. * hw-doloop.c: Moved to... * hw-doloop.cc: ...here. * hwint.c: Moved to... * hwint.cc: ...here. * ifcvt.c: Moved to... * ifcvt.cc: ...here. * inchash.c: Moved to... * inchash.cc: ...here. * incpath.c: Moved to... * incpath.cc: ...here. * init-regs.c: Moved to... * init-regs.cc: ...here. * input.c: Moved to... * input.cc: ...here. * internal-fn.c: Moved to... * internal-fn.cc: ...here. * intl.c: Moved to... * intl.cc: ...here. * ipa-comdats.c: Moved to... * ipa-comdats.cc: ...here. * ipa-cp.c: Moved to... * ipa-cp.cc: ...here. * ipa-devirt.c: Moved to... * ipa-devirt.cc: ...here. * ipa-fnsummary.c: Moved to... * ipa-fnsummary.cc: ...here. * ipa-icf-gimple.c: Moved to... * ipa-icf-gimple.cc: ...here. * ipa-icf.c: Moved to... * ipa-icf.cc: ...here. * ipa-inline-analysis.c: Moved to... * ipa-inline-analysis.cc: ...here. * ipa-inline-transform.c: Moved to... * ipa-inline-transform.cc: ...here. * ipa-inline.c: Moved to... * ipa-inline.cc: ...here. * ipa-modref-tree.c: Moved to... * ipa-modref-tree.cc: ...here. * ipa-modref.c: Moved to... * ipa-modref.cc: ...here. * ipa-param-manipulation.c: Moved to... * ipa-param-manipulation.cc: ...here. * ipa-polymorphic-call.c: Moved to... * ipa-polymorphic-call.cc: ...here. * ipa-predicate.c: Moved to... * ipa-predicate.cc: ...here. * ipa-profile.c: Moved to... * ipa-profile.cc: ...here. * ipa-prop.c: Moved to... * ipa-prop.cc: ...here. * ipa-pure-const.c: Moved to... * ipa-pure-const.cc: ...here. * ipa-ref.c: Moved to... * ipa-ref.cc: ...here. * ipa-reference.c: Moved to... * ipa-reference.cc: ...here. * ipa-split.c: Moved to... * ipa-split.cc: ...here. * ipa-sra.c: Moved to... * ipa-sra.cc: ...here. * ipa-utils.c: Moved to... * ipa-utils.cc: ...here. * ipa-visibility.c: Moved to... * ipa-visibility.cc: ...here. * ipa.c: Moved to... * ipa.cc: ...here. * ira-build.c: Moved to... * ira-build.cc: ...here. * ira-color.c: Moved to... * ira-color.cc: ...here. * ira-conflicts.c: Moved to... * ira-conflicts.cc: ...here. * ira-costs.c: Moved to... * ira-costs.cc: ...here. * ira-emit.c: Moved to... * ira-emit.cc: ...here. * ira-lives.c: Moved to... * ira-lives.cc: ...here. * ira.c: Moved to... * ira.cc: ...here. * jump.c: Moved to... * jump.cc: ...here. * langhooks.c: Moved to... * langhooks.cc: ...here. * lcm.c: Moved to... * lcm.cc: ...here. * lists.c: Moved to... * lists.cc: ...here. * loop-doloop.c: Moved to... * loop-doloop.cc: ...here. * loop-init.c: Moved to... * loop-init.cc: ...here. * loop-invariant.c: Moved to... * loop-invariant.cc: ...here. * loop-iv.c: Moved to... * loop-iv.cc: ...here. * loop-unroll.c: Moved to... * loop-unroll.cc: ...here. * lower-subreg.c: Moved to... * lower-subreg.cc: ...here. * lra-assigns.c: Moved to... * lra-assigns.cc: ...here. * lra-coalesce.c: Moved to... * lra-coalesce.cc: ...here. * lra-constraints.c: Moved to... * lra-constraints.cc: ...here. * lra-eliminations.c: Moved to... * lra-eliminations.cc: ...here. * lra-lives.c: Moved to... * lra-lives.cc: ...here. * lra-remat.c: Moved to... * lra-remat.cc: ...here. * lra-spills.c: Moved to... * lra-spills.cc: ...here. * lra.c: Moved to... * lra.cc: ...here. * lto-cgraph.c: Moved to... * lto-cgraph.cc: ...here. * lto-compress.c: Moved to... * lto-compress.cc: ...here. * lto-opts.c: Moved to... * lto-opts.cc: ...here. * lto-section-in.c: Moved to... * lto-section-in.cc: ...here. * lto-section-out.c: Moved to... * lto-section-out.cc: ...here. * lto-streamer-in.c: Moved to... * lto-streamer-in.cc: ...here. * lto-streamer-out.c: Moved to... * lto-streamer-out.cc: ...here. * lto-streamer.c: Moved to... * lto-streamer.cc: ...here. * lto-wrapper.c: Moved to... * lto-wrapper.cc: ...here. * main.c: Moved to... * main.cc: ...here. * mcf.c: Moved to... * mcf.cc: ...here. * mode-switching.c: Moved to... * mode-switching.cc: ...here. * modulo-sched.c: Moved to... * modulo-sched.cc: ...here. * multiple_target.c: Moved to... * multiple_target.cc: ...here. * omp-expand.c: Moved to... * omp-expand.cc: ...here. * omp-general.c: Moved to... * omp-general.cc: ...here. * omp-low.c: Moved to... * omp-low.cc: ...here. * omp-offload.c: Moved to... * omp-offload.cc: ...here. * omp-simd-clone.c: Moved to... * omp-simd-clone.cc: ...here. * opt-suggestions.c: Moved to... * opt-suggestions.cc: ...here. * optabs-libfuncs.c: Moved to... * optabs-libfuncs.cc: ...here. * optabs-query.c: Moved to... * optabs-query.cc: ...here. * optabs-tree.c: Moved to... * optabs-tree.cc: ...here. * optabs.c: Moved to... * optabs.cc: ...here. * opts-common.c: Moved to... * opts-common.cc: ...here. * opts-global.c: Moved to... * opts-global.cc: ...here. * opts.c: Moved to... * opts.cc: ...here. * passes.c: Moved to... * passes.cc: ...here. * plugin.c: Moved to... * plugin.cc: ...here. * postreload-gcse.c: Moved to... * postreload-gcse.cc: ...here. * postreload.c: Moved to... * postreload.cc: ...here. * predict.c: Moved to... * predict.cc: ...here. * prefix.c: Moved to... * prefix.cc: ...here. * pretty-print.c: Moved to... * pretty-print.cc: ...here. * print-rtl-function.c: Moved to... * print-rtl-function.cc: ...here. * print-rtl.c: Moved to... * print-rtl.cc: ...here. * print-tree.c: Moved to... * print-tree.cc: ...here. * profile-count.c: Moved to... * profile-count.cc: ...here. * profile.c: Moved to... * profile.cc: ...here. * read-md.c: Moved to... * read-md.cc: ...here. * read-rtl-function.c: Moved to... * read-rtl-function.cc: ...here. * read-rtl.c: Moved to... * read-rtl.cc: ...here. * real.c: Moved to... * real.cc: ...here. * realmpfr.c: Moved to... * realmpfr.cc: ...here. * recog.c: Moved to... * recog.cc: ...here. * ree.c: Moved to... * ree.cc: ...here. * reg-stack.c: Moved to... * reg-stack.cc: ...here. * regcprop.c: Moved to... * regcprop.cc: ...here. * reginfo.c: Moved to... * reginfo.cc: ...here. * regrename.c: Moved to... * regrename.cc: ...here. * regstat.c: Moved to... * regstat.cc: ...here. * reload.c: Moved to... * reload.cc: ...here. * reload1.c: Moved to... * reload1.cc: ...here. * reorg.c: Moved to... * reorg.cc: ...here. * resource.c: Moved to... * resource.cc: ...here. * rtl-error.c: Moved to... * rtl-error.cc: ...here. * rtl-tests.c: Moved to... * rtl-tests.cc: ...here. * rtl.c: Moved to... * rtl.cc: ...here. * rtlanal.c: Moved to... * rtlanal.cc: ...here. * rtlhash.c: Moved to... * rtlhash.cc: ...here. * rtlhooks.c: Moved to... * rtlhooks.cc: ...here. * rtx-vector-builder.c: Moved to... * rtx-vector-builder.cc: ...here. * run-rtl-passes.c: Moved to... * run-rtl-passes.cc: ...here. * sancov.c: Moved to... * sancov.cc: ...here. * sanopt.c: Moved to... * sanopt.cc: ...here. * sbitmap.c: Moved to... * sbitmap.cc: ...here. * sched-deps.c: Moved to... * sched-deps.cc: ...here. * sched-ebb.c: Moved to... * sched-ebb.cc: ...here. * sched-rgn.c: Moved to... * sched-rgn.cc: ...here. * sel-sched-dump.c: Moved to... * sel-sched-dump.cc: ...here. * sel-sched-ir.c: Moved to... * sel-sched-ir.cc: ...here. * sel-sched.c: Moved to... * sel-sched.cc: ...here. * selftest-diagnostic.c: Moved to... * selftest-diagnostic.cc: ...here. * selftest-rtl.c: Moved to... * selftest-rtl.cc: ...here. * selftest-run-tests.c: Moved to... * selftest-run-tests.cc: ...here. * selftest.c: Moved to... * selftest.cc: ...here. * sese.c: Moved to... * sese.cc: ...here. * shrink-wrap.c: Moved to... * shrink-wrap.cc: ...here. * simplify-rtx.c: Moved to... * simplify-rtx.cc: ...here. * sparseset.c: Moved to... * sparseset.cc: ...here. * spellcheck-tree.c: Moved to... * spellcheck-tree.cc: ...here. * spellcheck.c: Moved to... * spellcheck.cc: ...here. * sreal.c: Moved to... * sreal.cc: ...here. * stack-ptr-mod.c: Moved to... * stack-ptr-mod.cc: ...here. * statistics.c: Moved to... * statistics.cc: ...here. * stmt.c: Moved to... * stmt.cc: ...here. * stor-layout.c: Moved to... * stor-layout.cc: ...here. * store-motion.c: Moved to... * store-motion.cc: ...here. * streamer-hooks.c: Moved to... * streamer-hooks.cc: ...here. * stringpool.c: Moved to... * stringpool.cc: ...here. * substring-locations.c: Moved to... * substring-locations.cc: ...here. * symtab.c: Moved to... * symtab.cc: ...here. * target-globals.c: Moved to... * target-globals.cc: ...here. * targhooks.c: Moved to... * targhooks.cc: ...here. * timevar.c: Moved to... * timevar.cc: ...here. * toplev.c: Moved to... * toplev.cc: ...here. * tracer.c: Moved to... * tracer.cc: ...here. * trans-mem.c: Moved to... * trans-mem.cc: ...here. * tree-affine.c: Moved to... * tree-affine.cc: ...here. * tree-call-cdce.c: Moved to... * tree-call-cdce.cc: ...here. * tree-cfg.c: Moved to... * tree-cfg.cc: ...here. * tree-cfgcleanup.c: Moved to... * tree-cfgcleanup.cc: ...here. * tree-chrec.c: Moved to... * tree-chrec.cc: ...here. * tree-complex.c: Moved to... * tree-complex.cc: ...here. * tree-data-ref.c: Moved to... * tree-data-ref.cc: ...here. * tree-dfa.c: Moved to... * tree-dfa.cc: ...here. * tree-diagnostic.c: Moved to... * tree-diagnostic.cc: ...here. * tree-dump.c: Moved to... * tree-dump.cc: ...here. * tree-eh.c: Moved to... * tree-eh.cc: ...here. * tree-emutls.c: Moved to... * tree-emutls.cc: ...here. * tree-if-conv.c: Moved to... * tree-if-conv.cc: ...here. * tree-inline.c: Moved to... * tree-inline.cc: ...here. * tree-into-ssa.c: Moved to... * tree-into-ssa.cc: ...here. * tree-iterator.c: Moved to... * tree-iterator.cc: ...here. * tree-loop-distribution.c: Moved to... * tree-loop-distribution.cc: ...here. * tree-nested.c: Moved to... * tree-nested.cc: ...here. * tree-nrv.c: Moved to... * tree-nrv.cc: ...here. * tree-object-size.c: Moved to... * tree-object-size.cc: ...here. * tree-outof-ssa.c: Moved to... * tree-outof-ssa.cc: ...here. * tree-parloops.c: Moved to... * tree-parloops.cc: ...here. * tree-phinodes.c: Moved to... * tree-phinodes.cc: ...here. * tree-predcom.c: Moved to... * tree-predcom.cc: ...here. * tree-pretty-print.c: Moved to... * tree-pretty-print.cc: ...here. * tree-profile.c: Moved to... * tree-profile.cc: ...here. * tree-scalar-evolution.c: Moved to... * tree-scalar-evolution.cc: ...here. * tree-sra.c: Moved to... * tree-sra.cc: ...here. * tree-ssa-address.c: Moved to... * tree-ssa-address.cc: ...here. * tree-ssa-alias.c: Moved to... * tree-ssa-alias.cc: ...here. * tree-ssa-ccp.c: Moved to... * tree-ssa-ccp.cc: ...here. * tree-ssa-coalesce.c: Moved to... * tree-ssa-coalesce.cc: ...here. * tree-ssa-copy.c: Moved to... * tree-ssa-copy.cc: ...here. * tree-ssa-dce.c: Moved to... * tree-ssa-dce.cc: ...here. * tree-ssa-dom.c: Moved to... * tree-ssa-dom.cc: ...here. * tree-ssa-dse.c: Moved to... * tree-ssa-dse.cc: ...here. * tree-ssa-forwprop.c: Moved to... * tree-ssa-forwprop.cc: ...here. * tree-ssa-ifcombine.c: Moved to... * tree-ssa-ifcombine.cc: ...here. * tree-ssa-live.c: Moved to... * tree-ssa-live.cc: ...here. * tree-ssa-loop-ch.c: Moved to... * tree-ssa-loop-ch.cc: ...here. * tree-ssa-loop-im.c: Moved to... * tree-ssa-loop-im.cc: ...here. * tree-ssa-loop-ivcanon.c: Moved to... * tree-ssa-loop-ivcanon.cc: ...here. * tree-ssa-loop-ivopts.c: Moved to... * tree-ssa-loop-ivopts.cc: ...here. * tree-ssa-loop-manip.c: Moved to... * tree-ssa-loop-manip.cc: ...here. * tree-ssa-loop-niter.c: Moved to... * tree-ssa-loop-niter.cc: ...here. * tree-ssa-loop-prefetch.c: Moved to... * tree-ssa-loop-prefetch.cc: ...here. * tree-ssa-loop-split.c: Moved to... * tree-ssa-loop-split.cc: ...here. * tree-ssa-loop-unswitch.c: Moved to... * tree-ssa-loop-unswitch.cc: ...here. * tree-ssa-loop.c: Moved to... * tree-ssa-loop.cc: ...here. * tree-ssa-math-opts.c: Moved to... * tree-ssa-math-opts.cc: ...here. * tree-ssa-operands.c: Moved to... * tree-ssa-operands.cc: ...here. * tree-ssa-phiopt.c: Moved to... * tree-ssa-phiopt.cc: ...here. * tree-ssa-phiprop.c: Moved to... * tree-ssa-phiprop.cc: ...here. * tree-ssa-pre.c: Moved to... * tree-ssa-pre.cc: ...here. * tree-ssa-propagate.c: Moved to... * tree-ssa-propagate.cc: ...here. * tree-ssa-reassoc.c: Moved to... * tree-ssa-reassoc.cc: ...here. * tree-ssa-sccvn.c: Moved to... * tree-ssa-sccvn.cc: ...here. * tree-ssa-scopedtables.c: Moved to... * tree-ssa-scopedtables.cc: ...here. * tree-ssa-sink.c: Moved to... * tree-ssa-sink.cc: ...here. * tree-ssa-strlen.c: Moved to... * tree-ssa-strlen.cc: ...here. * tree-ssa-structalias.c: Moved to... * tree-ssa-structalias.cc: ...here. * tree-ssa-tail-merge.c: Moved to... * tree-ssa-tail-merge.cc: ...here. * tree-ssa-ter.c: Moved to... * tree-ssa-ter.cc: ...here. * tree-ssa-threadbackward.c: Moved to... * tree-ssa-threadbackward.cc: ...here. * tree-ssa-threadedge.c: Moved to... * tree-ssa-threadedge.cc: ...here. * tree-ssa-threadupdate.c: Moved to... * tree-ssa-threadupdate.cc: ...here. * tree-ssa-uncprop.c: Moved to... * tree-ssa-uncprop.cc: ...here. * tree-ssa-uninit.c: Moved to... * tree-ssa-uninit.cc: ...here. * tree-ssa.c: Moved to... * tree-ssa.cc: ...here. * tree-ssanames.c: Moved to... * tree-ssanames.cc: ...here. * tree-stdarg.c: Moved to... * tree-stdarg.cc: ...here. * tree-streamer-in.c: Moved to... * tree-streamer-in.cc: ...here. * tree-streamer-out.c: Moved to... * tree-streamer-out.cc: ...here. * tree-streamer.c: Moved to... * tree-streamer.cc: ...here. * tree-switch-conversion.c: Moved to... * tree-switch-conversion.cc: ...here. * tree-tailcall.c: Moved to... * tree-tailcall.cc: ...here. * tree-vect-data-refs.c: Moved to... * tree-vect-data-refs.cc: ...here. * tree-vect-generic.c: Moved to... * tree-vect-generic.cc: ...here. * tree-vect-loop-manip.c: Moved to... * tree-vect-loop-manip.cc: ...here. * tree-vect-loop.c: Moved to... * tree-vect-loop.cc: ...here. * tree-vect-patterns.c: Moved to... * tree-vect-patterns.cc: ...here. * tree-vect-slp-patterns.c: Moved to... * tree-vect-slp-patterns.cc: ...here. * tree-vect-slp.c: Moved to... * tree-vect-slp.cc: ...here. * tree-vect-stmts.c: Moved to... * tree-vect-stmts.cc: ...here. * tree-vector-builder.c: Moved to... * tree-vector-builder.cc: ...here. * tree-vectorizer.c: Moved to... * tree-vectorizer.cc: ...here. * tree-vrp.c: Moved to... * tree-vrp.cc: ...here. * tree.c: Moved to... * tree.cc: ...here. * tsan.c: Moved to... * tsan.cc: ...here. * typed-splay-tree.c: Moved to... * typed-splay-tree.cc: ...here. * ubsan.c: Moved to... * ubsan.cc: ...here. * valtrack.c: Moved to... * valtrack.cc: ...here. * value-prof.c: Moved to... * value-prof.cc: ...here. * var-tracking.c: Moved to... * var-tracking.cc: ...here. * varasm.c: Moved to... * varasm.cc: ...here. * varpool.c: Moved to... * varpool.cc: ...here. * vec-perm-indices.c: Moved to... * vec-perm-indices.cc: ...here. * vec.c: Moved to... * vec.cc: ...here. * vmsdbgout.c: Moved to... * vmsdbgout.cc: ...here. * vr-values.c: Moved to... * vr-values.cc: ...here. * vtable-verify.c: Moved to... * vtable-verify.cc: ...here. * web.c: Moved to... * web.cc: ...here. * xcoffout.c: Moved to... * xcoffout.cc: ...here. gcc/c-family/ChangeLog: * c-ada-spec.c: Moved to... * c-ada-spec.cc: ...here. * c-attribs.c: Moved to... * c-attribs.cc: ...here. * c-common.c: Moved to... * c-common.cc: ...here. * c-cppbuiltin.c: Moved to... * c-cppbuiltin.cc: ...here. * c-dump.c: Moved to... * c-dump.cc: ...here. * c-format.c: Moved to... * c-format.cc: ...here. * c-gimplify.c: Moved to... * c-gimplify.cc: ...here. * c-indentation.c: Moved to... * c-indentation.cc: ...here. * c-lex.c: Moved to... * c-lex.cc: ...here. * c-omp.c: Moved to... * c-omp.cc: ...here. * c-opts.c: Moved to... * c-opts.cc: ...here. * c-pch.c: Moved to... * c-pch.cc: ...here. * c-ppoutput.c: Moved to... * c-ppoutput.cc: ...here. * c-pragma.c: Moved to... * c-pragma.cc: ...here. * c-pretty-print.c: Moved to... * c-pretty-print.cc: ...here. * c-semantics.c: Moved to... * c-semantics.cc: ...here. * c-ubsan.c: Moved to... * c-ubsan.cc: ...here. * c-warn.c: Moved to... * c-warn.cc: ...here. * cppspec.c: Moved to... * cppspec.cc: ...here. * stub-objc.c: Moved to... * stub-objc.cc: ...here. gcc/c/ChangeLog: * c-aux-info.c: Moved to... * c-aux-info.cc: ...here. * c-convert.c: Moved to... * c-convert.cc: ...here. * c-decl.c: Moved to... * c-decl.cc: ...here. * c-errors.c: Moved to... * c-errors.cc: ...here. * c-fold.c: Moved to... * c-fold.cc: ...here. * c-lang.c: Moved to... * c-lang.cc: ...here. * c-objc-common.c: Moved to... * c-objc-common.cc: ...here. * c-parser.c: Moved to... * c-parser.cc: ...here. * c-typeck.c: Moved to... * c-typeck.cc: ...here. * gccspec.c: Moved to... * gccspec.cc: ...here. * gimple-parser.c: Moved to... * gimple-parser.cc: ...here. gcc/cp/ChangeLog: * call.c: Moved to... * call.cc: ...here. * class.c: Moved to... * class.cc: ...here. * constexpr.c: Moved to... * constexpr.cc: ...here. * cp-gimplify.c: Moved to... * cp-gimplify.cc: ...here. * cp-lang.c: Moved to... * cp-lang.cc: ...here. * cp-objcp-common.c: Moved to... * cp-objcp-common.cc: ...here. * cp-ubsan.c: Moved to... * cp-ubsan.cc: ...here. * cvt.c: Moved to... * cvt.cc: ...here. * cxx-pretty-print.c: Moved to... * cxx-pretty-print.cc: ...here. * decl.c: Moved to... * decl.cc: ...here. * decl2.c: Moved to... * decl2.cc: ...here. * dump.c: Moved to... * dump.cc: ...here. * error.c: Moved to... * error.cc: ...here. * except.c: Moved to... * except.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * friend.c: Moved to... * friend.cc: ...here. * g++spec.c: Moved to... * g++spec.cc: ...here. * init.c: Moved to... * init.cc: ...here. * lambda.c: Moved to... * lambda.cc: ...here. * lex.c: Moved to... * lex.cc: ...here. * mangle.c: Moved to... * mangle.cc: ...here. * method.c: Moved to... * method.cc: ...here. * name-lookup.c: Moved to... * name-lookup.cc: ...here. * optimize.c: Moved to... * optimize.cc: ...here. * parser.c: Moved to... * parser.cc: ...here. * pt.c: Moved to... * pt.cc: ...here. * ptree.c: Moved to... * ptree.cc: ...here. * rtti.c: Moved to... * rtti.cc: ...here. * search.c: Moved to... * search.cc: ...here. * semantics.c: Moved to... * semantics.cc: ...here. * tree.c: Moved to... * tree.cc: ...here. * typeck.c: Moved to... * typeck.cc: ...here. * typeck2.c: Moved to... * typeck2.cc: ...here. * vtable-class-hierarchy.c: Moved to... * vtable-class-hierarchy.cc: ...here. gcc/fortran/ChangeLog: * arith.c: Moved to... * arith.cc: ...here. * array.c: Moved to... * array.cc: ...here. * bbt.c: Moved to... * bbt.cc: ...here. * check.c: Moved to... * check.cc: ...here. * class.c: Moved to... * class.cc: ...here. * constructor.c: Moved to... * constructor.cc: ...here. * convert.c: Moved to... * convert.cc: ...here. * cpp.c: Moved to... * cpp.cc: ...here. * data.c: Moved to... * data.cc: ...here. * decl.c: Moved to... * decl.cc: ...here. * dependency.c: Moved to... * dependency.cc: ...here. * dump-parse-tree.c: Moved to... * dump-parse-tree.cc: ...here. * error.c: Moved to... * error.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * f95-lang.c: Moved to... * f95-lang.cc: ...here. * frontend-passes.c: Moved to... * frontend-passes.cc: ...here. * gfortranspec.c: Moved to... * gfortranspec.cc: ...here. * interface.c: Moved to... * interface.cc: ...here. * intrinsic.c: Moved to... * intrinsic.cc: ...here. * io.c: Moved to... * io.cc: ...here. * iresolve.c: Moved to... * iresolve.cc: ...here. * match.c: Moved to... * match.cc: ...here. * matchexp.c: Moved to... * matchexp.cc: ...here. * misc.c: Moved to... * misc.cc: ...here. * module.c: Moved to... * module.cc: ...here. * openmp.c: Moved to... * openmp.cc: ...here. * options.c: Moved to... * options.cc: ...here. * parse.c: Moved to... * parse.cc: ...here. * primary.c: Moved to... * primary.cc: ...here. * resolve.c: Moved to... * resolve.cc: ...here. * scanner.c: Moved to... * scanner.cc: ...here. * simplify.c: Moved to... * simplify.cc: ...here. * st.c: Moved to... * st.cc: ...here. * symbol.c: Moved to... * symbol.cc: ...here. * target-memory.c: Moved to... * target-memory.cc: ...here. * trans-array.c: Moved to... * trans-array.cc: ...here. * trans-common.c: Moved to... * trans-common.cc: ...here. * trans-const.c: Moved to... * trans-const.cc: ...here. * trans-decl.c: Moved to... * trans-decl.cc: ...here. * trans-expr.c: Moved to... * trans-expr.cc: ...here. * trans-intrinsic.c: Moved to... * trans-intrinsic.cc: ...here. * trans-io.c: Moved to... * trans-io.cc: ...here. * trans-openmp.c: Moved to... * trans-openmp.cc: ...here. * trans-stmt.c: Moved to... * trans-stmt.cc: ...here. * trans-types.c: Moved to... * trans-types.cc: ...here. * trans.c: Moved to... * trans.cc: ...here. gcc/go/ChangeLog: * go-backend.c: Moved to... * go-backend.cc: ...here. * go-lang.c: Moved to... * go-lang.cc: ...here. * gospec.c: Moved to... * gospec.cc: ...here. gcc/jit/ChangeLog: * dummy-frontend.c: Moved to... * dummy-frontend.cc: ...here. * jit-builtins.c: Moved to... * jit-builtins.cc: ...here. * jit-logging.c: Moved to... * jit-logging.cc: ...here. * jit-playback.c: Moved to... * jit-playback.cc: ...here. * jit-recording.c: Moved to... * jit-recording.cc: ...here. * jit-result.c: Moved to... * jit-result.cc: ...here. * jit-spec.c: Moved to... * jit-spec.cc: ...here. * jit-tempdir.c: Moved to... * jit-tempdir.cc: ...here. * jit-w32.c: Moved to... * jit-w32.cc: ...here. * libgccjit.c: Moved to... * libgccjit.cc: ...here. gcc/lto/ChangeLog: * common.c: Moved to... * common.cc: ...here. * lto-common.c: Moved to... * lto-common.cc: ...here. * lto-dump.c: Moved to... * lto-dump.cc: ...here. * lto-lang.c: Moved to... * lto-lang.cc: ...here. * lto-object.c: Moved to... * lto-object.cc: ...here. * lto-partition.c: Moved to... * lto-partition.cc: ...here. * lto-symtab.c: Moved to... * lto-symtab.cc: ...here. * lto.c: Moved to... * lto.cc: ...here. gcc/objc/ChangeLog: * objc-act.c: Moved to... * objc-act.cc: ...here. * objc-encoding.c: Moved to... * objc-encoding.cc: ...here. * objc-gnu-runtime-abi-01.c: Moved to... * objc-gnu-runtime-abi-01.cc: ...here. * objc-lang.c: Moved to... * objc-lang.cc: ...here. * objc-map.c: Moved to... * objc-map.cc: ...here. * objc-next-runtime-abi-01.c: Moved to... * objc-next-runtime-abi-01.cc: ...here. * objc-next-runtime-abi-02.c: Moved to... * objc-next-runtime-abi-02.cc: ...here. * objc-runtime-shared-support.c: Moved to... * objc-runtime-shared-support.cc: ...here. gcc/objcp/ChangeLog: * objcp-decl.c: Moved to... * objcp-decl.cc: ...here. * objcp-lang.c: Moved to... * objcp-lang.cc: ...here. libcpp/ChangeLog: * charset.c: Moved to... * charset.cc: ...here. * directives.c: Moved to... * directives.cc: ...here. * errors.c: Moved to... * errors.cc: ...here. * expr.c: Moved to... * expr.cc: ...here. * files.c: Moved to... * files.cc: ...here. * identifiers.c: Moved to... * identifiers.cc: ...here. * init.c: Moved to... * init.cc: ...here. * lex.c: Moved to... * lex.cc: ...here. * line-map.c: Moved to... * line-map.cc: ...here. * macro.c: Moved to... * macro.cc: ...here. * makeucnid.c: Moved to... * makeucnid.cc: ...here. * mkdeps.c: Moved to... * mkdeps.cc: ...here. * pch.c: Moved to... * pch.cc: ...here. * symtab.c: Moved to... * symtab.cc: ...here. * traditional.c: Moved to... * traditional.cc: ...here.
Diffstat (limited to 'gcc/fortran/arith.c')
-rw-r--r--gcc/fortran/arith.c2706
1 files changed, 0 insertions, 2706 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
deleted file mode 100644
index b3323ecf..0000000
--- a/gcc/fortran/arith.c
+++ /dev/null
@@ -1,2706 +0,0 @@
-/* Compiler arithmetic
- Copyright (C) 2000-2022 Free Software Foundation, Inc.
- Contributed by Andy Vaught
-
-This file is part of GCC.
-
-GCC is free software; you can redistribute it and/or modify it under
-the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 3, or (at your option) any later
-version.
-
-GCC is distributed in the hope that it will be useful, but WITHOUT ANY
-WARRANTY; without even the implied warranty of MERCHANTABILITY or
-FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-for more details.
-
-You should have received a copy of the GNU General Public License
-along with GCC; see the file COPYING3. If not see
-<http://www.gnu.org/licenses/>. */
-
-/* Since target arithmetic must be done on the host, there has to
- be some way of evaluating arithmetic expressions as the host
- would evaluate them. We use the GNU MP library and the MPFR
- library to do arithmetic, and this file provides the interface. */
-
-#include "config.h"
-#include "system.h"
-#include "coretypes.h"
-#include "options.h"
-#include "gfortran.h"
-#include "arith.h"
-#include "target-memory.h"
-#include "constructor.h"
-
-bool gfc_seen_div0;
-
-/* MPFR does not have a direct replacement for mpz_set_f() from GMP.
- It's easily implemented with a few calls though. */
-
-void
-gfc_mpfr_to_mpz (mpz_t z, mpfr_t x, locus *where)
-{
- mpfr_exp_t e;
-
- if (mpfr_inf_p (x) || mpfr_nan_p (x))
- {
- gfc_error ("Conversion of an Infinity or Not-a-Number at %L "
- "to INTEGER", where);
- mpz_set_ui (z, 0);
- return;
- }
-
- e = mpfr_get_z_exp (z, x);
-
- if (e > 0)
- mpz_mul_2exp (z, z, e);
- else
- mpz_tdiv_q_2exp (z, z, -e);
-}
-
-
-/* Set the model number precision by the requested KIND. */
-
-void
-gfc_set_model_kind (int kind)
-{
- int index = gfc_validate_kind (BT_REAL, kind, false);
- int base2prec;
-
- base2prec = gfc_real_kinds[index].digits;
- if (gfc_real_kinds[index].radix != 2)
- base2prec *= gfc_real_kinds[index].radix / 2;
- mpfr_set_default_prec (base2prec);
-}
-
-
-/* Set the model number precision from mpfr_t x. */
-
-void
-gfc_set_model (mpfr_t x)
-{
- mpfr_set_default_prec (mpfr_get_prec (x));
-}
-
-
-/* Given an arithmetic error code, return a pointer to a string that
- explains the error. */
-
-static const char *
-gfc_arith_error (arith code)
-{
- const char *p;
-
- switch (code)
- {
- case ARITH_OK:
- p = G_("Arithmetic OK at %L");
- break;
- case ARITH_OVERFLOW:
- p = G_("Arithmetic overflow at %L");
- break;
- case ARITH_UNDERFLOW:
- p = G_("Arithmetic underflow at %L");
- break;
- case ARITH_NAN:
- p = G_("Arithmetic NaN at %L");
- break;
- case ARITH_DIV0:
- p = G_("Division by zero at %L");
- break;
- case ARITH_INCOMMENSURATE:
- p = G_("Array operands are incommensurate at %L");
- break;
- case ARITH_ASYMMETRIC:
- p = G_("Integer outside symmetric range implied by Standard Fortran"
- " at %L");
- break;
- case ARITH_WRONGCONCAT:
- p = G_("Illegal type in character concatenation at %L");
- break;
-
- default:
- gfc_internal_error ("gfc_arith_error(): Bad error code");
- }
-
- return p;
-}
-
-
-/* Get things ready to do math. */
-
-void
-gfc_arith_init_1 (void)
-{
- gfc_integer_info *int_info;
- gfc_real_info *real_info;
- mpfr_t a, b;
- int i;
-
- mpfr_set_default_prec (128);
- mpfr_init (a);
-
- /* Convert the minimum and maximum values for each kind into their
- GNU MP representation. */
- for (int_info = gfc_integer_kinds; int_info->kind != 0; int_info++)
- {
- /* Huge */
- mpz_init (int_info->huge);
- mpz_set_ui (int_info->huge, int_info->radix);
- mpz_pow_ui (int_info->huge, int_info->huge, int_info->digits);
- mpz_sub_ui (int_info->huge, int_info->huge, 1);
-
- /* These are the numbers that are actually representable by the
- target. For bases other than two, this needs to be changed. */
- if (int_info->radix != 2)
- gfc_internal_error ("Fix min_int calculation");
-
- /* See PRs 13490 and 17912, related to integer ranges.
- The pedantic_min_int exists for range checking when a program
- is compiled with -pedantic, and reflects the belief that
- Standard Fortran requires integers to be symmetrical, i.e.
- every negative integer must have a representable positive
- absolute value, and vice versa. */
-
- mpz_init (int_info->pedantic_min_int);
- mpz_neg (int_info->pedantic_min_int, int_info->huge);
-
- mpz_init (int_info->min_int);
- mpz_sub_ui (int_info->min_int, int_info->pedantic_min_int, 1);
-
- /* Range */
- mpfr_set_z (a, int_info->huge, GFC_RND_MODE);
- mpfr_log10 (a, a, GFC_RND_MODE);
- mpfr_trunc (a, a);
- int_info->range = (int) mpfr_get_si (a, GFC_RND_MODE);
- }
-
- mpfr_clear (a);
-
- for (real_info = gfc_real_kinds; real_info->kind != 0; real_info++)
- {
- gfc_set_model_kind (real_info->kind);
-
- mpfr_init (a);
- mpfr_init (b);
-
- /* huge(x) = (1 - b**(-p)) * b**(emax-1) * b */
- /* 1 - b**(-p) */
- mpfr_init (real_info->huge);
- mpfr_set_ui (real_info->huge, 1, GFC_RND_MODE);
- mpfr_set_ui (a, real_info->radix, GFC_RND_MODE);
- mpfr_pow_si (a, a, -real_info->digits, GFC_RND_MODE);
- mpfr_sub (real_info->huge, real_info->huge, a, GFC_RND_MODE);
-
- /* b**(emax-1) */
- mpfr_set_ui (a, real_info->radix, GFC_RND_MODE);
- mpfr_pow_ui (a, a, real_info->max_exponent - 1, GFC_RND_MODE);
-
- /* (1 - b**(-p)) * b**(emax-1) */
- mpfr_mul (real_info->huge, real_info->huge, a, GFC_RND_MODE);
-
- /* (1 - b**(-p)) * b**(emax-1) * b */
- mpfr_mul_ui (real_info->huge, real_info->huge, real_info->radix,
- GFC_RND_MODE);
-
- /* tiny(x) = b**(emin-1) */
- mpfr_init (real_info->tiny);
- mpfr_set_ui (real_info->tiny, real_info->radix, GFC_RND_MODE);
- mpfr_pow_si (real_info->tiny, real_info->tiny,
- real_info->min_exponent - 1, GFC_RND_MODE);
-
- /* subnormal (x) = b**(emin - digit) */
- mpfr_init (real_info->subnormal);
- mpfr_set_ui (real_info->subnormal, real_info->radix, GFC_RND_MODE);
- mpfr_pow_si (real_info->subnormal, real_info->subnormal,
- real_info->min_exponent - real_info->digits, GFC_RND_MODE);
-
- /* epsilon(x) = b**(1-p) */
- mpfr_init (real_info->epsilon);
- mpfr_set_ui (real_info->epsilon, real_info->radix, GFC_RND_MODE);
- mpfr_pow_si (real_info->epsilon, real_info->epsilon,
- 1 - real_info->digits, GFC_RND_MODE);
-
- /* range(x) = int(min(log10(huge(x)), -log10(tiny)) */
- mpfr_log10 (a, real_info->huge, GFC_RND_MODE);
- mpfr_log10 (b, real_info->tiny, GFC_RND_MODE);
- mpfr_neg (b, b, GFC_RND_MODE);
-
- /* a = min(a, b) */
- mpfr_min (a, a, b, GFC_RND_MODE);
- mpfr_trunc (a, a);
- real_info->range = (int) mpfr_get_si (a, GFC_RND_MODE);
-
- /* precision(x) = int((p - 1) * log10(b)) + k */
- mpfr_set_ui (a, real_info->radix, GFC_RND_MODE);
- mpfr_log10 (a, a, GFC_RND_MODE);
- mpfr_mul_ui (a, a, real_info->digits - 1, GFC_RND_MODE);
- mpfr_trunc (a, a);
- real_info->precision = (int) mpfr_get_si (a, GFC_RND_MODE);
-
- /* If the radix is an integral power of 10, add one to the precision. */
- for (i = 10; i <= real_info->radix; i *= 10)
- if (i == real_info->radix)
- real_info->precision++;
-
- mpfr_clears (a, b, NULL);
- }
-}
-
-
-/* Clean up, get rid of numeric constants. */
-
-void
-gfc_arith_done_1 (void)
-{
- gfc_integer_info *ip;
- gfc_real_info *rp;
-
- for (ip = gfc_integer_kinds; ip->kind; ip++)
- {
- mpz_clear (ip->min_int);
- mpz_clear (ip->pedantic_min_int);
- mpz_clear (ip->huge);
- }
-
- for (rp = gfc_real_kinds; rp->kind; rp++)
- mpfr_clears (rp->epsilon, rp->huge, rp->tiny, rp->subnormal, NULL);
-
- mpfr_free_cache ();
-}
-
-
-/* Given a wide character value and a character kind, determine whether
- the character is representable for that kind. */
-bool
-gfc_check_character_range (gfc_char_t c, int kind)
-{
- /* As wide characters are stored as 32-bit values, they're all
- representable in UCS=4. */
- if (kind == 4)
- return true;
-
- if (kind == 1)
- return c <= 255 ? true : false;
-
- gcc_unreachable ();
-}
-
-
-/* Given an integer and a kind, make sure that the integer lies within
- the range of the kind. Returns ARITH_OK, ARITH_ASYMMETRIC or
- ARITH_OVERFLOW. */
-
-arith
-gfc_check_integer_range (mpz_t p, int kind)
-{
- arith result;
- int i;
-
- i = gfc_validate_kind (BT_INTEGER, kind, false);
- result = ARITH_OK;
-
- if (pedantic)
- {
- if (mpz_cmp (p, gfc_integer_kinds[i].pedantic_min_int) < 0)
- result = ARITH_ASYMMETRIC;
- }
-
-
- if (flag_range_check == 0)
- return result;
-
- if (mpz_cmp (p, gfc_integer_kinds[i].min_int) < 0
- || mpz_cmp (p, gfc_integer_kinds[i].huge) > 0)
- result = ARITH_OVERFLOW;
-
- return result;
-}
-
-
-/* Given a real and a kind, make sure that the real lies within the
- range of the kind. Returns ARITH_OK, ARITH_OVERFLOW or
- ARITH_UNDERFLOW. */
-
-static arith
-gfc_check_real_range (mpfr_t p, int kind)
-{
- arith retval;
- mpfr_t q;
- int i;
-
- i = gfc_validate_kind (BT_REAL, kind, false);
-
- gfc_set_model (p);
- mpfr_init (q);
- mpfr_abs (q, p, GFC_RND_MODE);
-
- retval = ARITH_OK;
-
- if (mpfr_inf_p (p))
- {
- if (flag_range_check != 0)
- retval = ARITH_OVERFLOW;
- }
- else if (mpfr_nan_p (p))
- {
- if (flag_range_check != 0)
- retval = ARITH_NAN;
- }
- else if (mpfr_sgn (q) == 0)
- {
- mpfr_clear (q);
- return retval;
- }
- else if (mpfr_cmp (q, gfc_real_kinds[i].huge) > 0)
- {
- if (flag_range_check == 0)
- mpfr_set_inf (p, mpfr_sgn (p));
- else
- retval = ARITH_OVERFLOW;
- }
- else if (mpfr_cmp (q, gfc_real_kinds[i].subnormal) < 0)
- {
- if (flag_range_check == 0)
- {
- if (mpfr_sgn (p) < 0)
- {
- mpfr_set_ui (p, 0, GFC_RND_MODE);
- mpfr_set_si (q, -1, GFC_RND_MODE);
- mpfr_copysign (p, p, q, GFC_RND_MODE);
- }
- else
- mpfr_set_ui (p, 0, GFC_RND_MODE);
- }
- else
- retval = ARITH_UNDERFLOW;
- }
- else if (mpfr_cmp (q, gfc_real_kinds[i].tiny) < 0)
- {
- mpfr_exp_t emin, emax;
- int en;
-
- /* Save current values of emin and emax. */
- emin = mpfr_get_emin ();
- emax = mpfr_get_emax ();
-
- /* Set emin and emax for the current model number. */
- en = gfc_real_kinds[i].min_exponent - gfc_real_kinds[i].digits + 1;
- mpfr_set_emin ((mpfr_exp_t) en);
- mpfr_set_emax ((mpfr_exp_t) gfc_real_kinds[i].max_exponent);
- mpfr_check_range (q, 0, GFC_RND_MODE);
- mpfr_subnormalize (q, 0, GFC_RND_MODE);
-
- /* Reset emin and emax. */
- mpfr_set_emin (emin);
- mpfr_set_emax (emax);
-
- /* Copy sign if needed. */
- if (mpfr_sgn (p) < 0)
- mpfr_neg (p, q, MPFR_RNDN);
- else
- mpfr_set (p, q, MPFR_RNDN);
- }
-
- mpfr_clear (q);
-
- return retval;
-}
-
-
-/* Low-level arithmetic functions. All of these subroutines assume
- that all operands are of the same type and return an operand of the
- same type. The other thing about these subroutines is that they
- can fail in various ways -- overflow, underflow, division by zero,
- zero raised to the zero, etc. */
-
-static arith
-gfc_arith_not (gfc_expr *op1, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, op1->ts.kind, &op1->where);
- result->value.logical = !op1->value.logical;
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_and (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
- &op1->where);
- result->value.logical = op1->value.logical && op2->value.logical;
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_or (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
- &op1->where);
- result->value.logical = op1->value.logical || op2->value.logical;
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_eqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
- &op1->where);
- result->value.logical = op1->value.logical == op2->value.logical;
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_neqv (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_kind_max (op1, op2),
- &op1->where);
- result->value.logical = op1->value.logical != op2->value.logical;
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-/* Make sure a constant numeric expression is within the range for
- its type and kind. Note that there's also a gfc_check_range(),
- but that one deals with the intrinsic RANGE function. */
-
-arith
-gfc_range_check (gfc_expr *e)
-{
- arith rc;
- arith rc2;
-
- switch (e->ts.type)
- {
- case BT_INTEGER:
- rc = gfc_check_integer_range (e->value.integer, e->ts.kind);
- break;
-
- case BT_REAL:
- rc = gfc_check_real_range (e->value.real, e->ts.kind);
- if (rc == ARITH_UNDERFLOW)
- mpfr_set_ui (e->value.real, 0, GFC_RND_MODE);
- if (rc == ARITH_OVERFLOW)
- mpfr_set_inf (e->value.real, mpfr_sgn (e->value.real));
- if (rc == ARITH_NAN)
- mpfr_set_nan (e->value.real);
- break;
-
- case BT_COMPLEX:
- rc = gfc_check_real_range (mpc_realref (e->value.complex), e->ts.kind);
- if (rc == ARITH_UNDERFLOW)
- mpfr_set_ui (mpc_realref (e->value.complex), 0, GFC_RND_MODE);
- if (rc == ARITH_OVERFLOW)
- mpfr_set_inf (mpc_realref (e->value.complex),
- mpfr_sgn (mpc_realref (e->value.complex)));
- if (rc == ARITH_NAN)
- mpfr_set_nan (mpc_realref (e->value.complex));
-
- rc2 = gfc_check_real_range (mpc_imagref (e->value.complex), e->ts.kind);
- if (rc == ARITH_UNDERFLOW)
- mpfr_set_ui (mpc_imagref (e->value.complex), 0, GFC_RND_MODE);
- if (rc == ARITH_OVERFLOW)
- mpfr_set_inf (mpc_imagref (e->value.complex),
- mpfr_sgn (mpc_imagref (e->value.complex)));
- if (rc == ARITH_NAN)
- mpfr_set_nan (mpc_imagref (e->value.complex));
-
- if (rc == ARITH_OK)
- rc = rc2;
- break;
-
- default:
- gfc_internal_error ("gfc_range_check(): Bad type");
- }
-
- return rc;
-}
-
-
-/* Several of the following routines use the same set of statements to
- check the validity of the result. Encapsulate the checking here. */
-
-static arith
-check_result (arith rc, gfc_expr *x, gfc_expr *r, gfc_expr **rp)
-{
- arith val = rc;
-
- if (val == ARITH_UNDERFLOW)
- {
- if (warn_underflow)
- gfc_warning (OPT_Wunderflow, gfc_arith_error (val), &x->where);
- val = ARITH_OK;
- }
-
- if (val == ARITH_ASYMMETRIC)
- {
- gfc_warning (0, gfc_arith_error (val), &x->where);
- val = ARITH_OK;
- }
-
- if (val == ARITH_OK || val == ARITH_OVERFLOW)
- *rp = r;
- else
- gfc_free_expr (r);
-
- return val;
-}
-
-
-/* It may seem silly to have a subroutine that actually computes the
- unary plus of a constant, but it prevents us from making exceptions
- in the code elsewhere. Used for unary plus and parenthesized
- expressions. */
-
-static arith
-gfc_arith_identity (gfc_expr *op1, gfc_expr **resultp)
-{
- *resultp = gfc_copy_expr (op1);
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_uminus (gfc_expr *op1, gfc_expr **resultp)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where);
-
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- mpz_neg (result->value.integer, op1->value.integer);
- break;
-
- case BT_REAL:
- mpfr_neg (result->value.real, op1->value.real, GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- mpc_neg (result->value.complex, op1->value.complex, GFC_MPC_RND_MODE);
- break;
-
- default:
- gfc_internal_error ("gfc_arith_uminus(): Bad basic type");
- }
-
- rc = gfc_range_check (result);
-
- return check_result (rc, op1, result, resultp);
-}
-
-
-static arith
-gfc_arith_plus (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where);
-
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- mpz_add (result->value.integer, op1->value.integer, op2->value.integer);
- break;
-
- case BT_REAL:
- mpfr_add (result->value.real, op1->value.real, op2->value.real,
- GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- mpc_add (result->value.complex, op1->value.complex, op2->value.complex,
- GFC_MPC_RND_MODE);
- break;
-
- default:
- gfc_internal_error ("gfc_arith_plus(): Bad basic type");
- }
-
- rc = gfc_range_check (result);
-
- return check_result (rc, op1, result, resultp);
-}
-
-
-static arith
-gfc_arith_minus (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where);
-
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- mpz_sub (result->value.integer, op1->value.integer, op2->value.integer);
- break;
-
- case BT_REAL:
- mpfr_sub (result->value.real, op1->value.real, op2->value.real,
- GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- mpc_sub (result->value.complex, op1->value.complex,
- op2->value.complex, GFC_MPC_RND_MODE);
- break;
-
- default:
- gfc_internal_error ("gfc_arith_minus(): Bad basic type");
- }
-
- rc = gfc_range_check (result);
-
- return check_result (rc, op1, result, resultp);
-}
-
-
-static arith
-gfc_arith_times (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where);
-
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- mpz_mul (result->value.integer, op1->value.integer, op2->value.integer);
- break;
-
- case BT_REAL:
- mpfr_mul (result->value.real, op1->value.real, op2->value.real,
- GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- gfc_set_model (mpc_realref (op1->value.complex));
- mpc_mul (result->value.complex, op1->value.complex, op2->value.complex,
- GFC_MPC_RND_MODE);
- break;
-
- default:
- gfc_internal_error ("gfc_arith_times(): Bad basic type");
- }
-
- rc = gfc_range_check (result);
-
- return check_result (rc, op1, result, resultp);
-}
-
-
-static arith
-gfc_arith_divide (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
- arith rc;
-
- rc = ARITH_OK;
-
- result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where);
-
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- if (mpz_sgn (op2->value.integer) == 0)
- {
- rc = ARITH_DIV0;
- break;
- }
-
- if (warn_integer_division)
- {
- mpz_t r;
- mpz_init (r);
- mpz_tdiv_qr (result->value.integer, r, op1->value.integer,
- op2->value.integer);
-
- if (mpz_cmp_si (r, 0) != 0)
- {
- char *p;
- p = mpz_get_str (NULL, 10, result->value.integer);
- gfc_warning_now (OPT_Winteger_division, "Integer division "
- "truncated to constant %qs at %L", p,
- &op1->where);
- free (p);
- }
- mpz_clear (r);
- }
- else
- mpz_tdiv_q (result->value.integer, op1->value.integer,
- op2->value.integer);
-
- break;
-
- case BT_REAL:
- if (mpfr_sgn (op2->value.real) == 0 && flag_range_check == 1)
- {
- rc = ARITH_DIV0;
- break;
- }
-
- mpfr_div (result->value.real, op1->value.real, op2->value.real,
- GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- if (mpc_cmp_si_si (op2->value.complex, 0, 0) == 0
- && flag_range_check == 1)
- {
- rc = ARITH_DIV0;
- break;
- }
-
- gfc_set_model (mpc_realref (op1->value.complex));
- if (mpc_cmp_si_si (op2->value.complex, 0, 0) == 0)
- {
- /* In Fortran, return (NaN + NaN I) for any zero divisor. See
- PR 40318. */
- mpfr_set_nan (mpc_realref (result->value.complex));
- mpfr_set_nan (mpc_imagref (result->value.complex));
- }
- else
- mpc_div (result->value.complex, op1->value.complex, op2->value.complex,
- GFC_MPC_RND_MODE);
- break;
-
- default:
- gfc_internal_error ("gfc_arith_divide(): Bad basic type");
- }
-
- if (rc == ARITH_OK)
- rc = gfc_range_check (result);
-
- return check_result (rc, op1, result, resultp);
-}
-
-/* Raise a number to a power. */
-
-static arith
-arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- int power_sign;
- gfc_expr *result;
- arith rc;
-
- rc = ARITH_OK;
- result = gfc_get_constant_expr (op1->ts.type, op1->ts.kind, &op1->where);
-
- switch (op2->ts.type)
- {
- case BT_INTEGER:
- power_sign = mpz_sgn (op2->value.integer);
-
- if (power_sign == 0)
- {
- /* Handle something to the zeroth power. Since we're dealing
- with integral exponents, there is no ambiguity in the
- limiting procedure used to determine the value of 0**0. */
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- mpz_set_ui (result->value.integer, 1);
- break;
-
- case BT_REAL:
- mpfr_set_ui (result->value.real, 1, GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- mpc_set_ui (result->value.complex, 1, GFC_MPC_RND_MODE);
- break;
-
- default:
- gfc_internal_error ("arith_power(): Bad base");
- }
- }
- else
- {
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- {
- /* First, we simplify the cases of op1 == 1, 0 or -1. */
- if (mpz_cmp_si (op1->value.integer, 1) == 0)
- {
- /* 1**op2 == 1 */
- mpz_set_si (result->value.integer, 1);
- }
- else if (mpz_cmp_si (op1->value.integer, 0) == 0)
- {
- /* 0**op2 == 0, if op2 > 0
- 0**op2 overflow, if op2 < 0 ; in that case, we
- set the result to 0 and return ARITH_DIV0. */
- mpz_set_si (result->value.integer, 0);
- if (mpz_cmp_si (op2->value.integer, 0) < 0)
- rc = ARITH_DIV0;
- }
- else if (mpz_cmp_si (op1->value.integer, -1) == 0)
- {
- /* (-1)**op2 == (-1)**(mod(op2,2)) */
- unsigned int odd = mpz_fdiv_ui (op2->value.integer, 2);
- if (odd)
- mpz_set_si (result->value.integer, -1);
- else
- mpz_set_si (result->value.integer, 1);
- }
- /* Then, we take care of op2 < 0. */
- else if (mpz_cmp_si (op2->value.integer, 0) < 0)
- {
- /* if op2 < 0, op1**op2 == 0 because abs(op1) > 1. */
- mpz_set_si (result->value.integer, 0);
- if (warn_integer_division)
- gfc_warning_now (OPT_Winteger_division, "Negative "
- "exponent of integer has zero "
- "result at %L", &result->where);
- }
- else
- {
- /* We have abs(op1) > 1 and op2 > 1.
- If op2 > bit_size(op1), we'll have an out-of-range
- result. */
- int k, power;
-
- k = gfc_validate_kind (BT_INTEGER, op1->ts.kind, false);
- power = gfc_integer_kinds[k].bit_size;
- if (mpz_cmp_si (op2->value.integer, power) < 0)
- {
- gfc_extract_int (op2, &power);
- mpz_pow_ui (result->value.integer, op1->value.integer,
- power);
- rc = gfc_range_check (result);
- if (rc == ARITH_OVERFLOW)
- gfc_error_now ("Result of exponentiation at %L "
- "exceeds the range of %s", &op1->where,
- gfc_typename (&(op1->ts)));
- }
- else
- {
- /* Provide a nonsense value to propagate up. */
- mpz_set (result->value.integer,
- gfc_integer_kinds[k].huge);
- mpz_add_ui (result->value.integer,
- result->value.integer, 1);
- rc = ARITH_OVERFLOW;
- }
- }
- }
- break;
-
- case BT_REAL:
- mpfr_pow_z (result->value.real, op1->value.real,
- op2->value.integer, GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- mpc_pow_z (result->value.complex, op1->value.complex,
- op2->value.integer, GFC_MPC_RND_MODE);
- break;
-
- default:
- break;
- }
- }
- break;
-
- case BT_REAL:
-
- if (gfc_init_expr_flag)
- {
- if (!gfc_notify_std (GFC_STD_F2003, "Noninteger "
- "exponent in an initialization "
- "expression at %L", &op2->where))
- {
- gfc_free_expr (result);
- return ARITH_PROHIBIT;
- }
- }
-
- if (mpfr_cmp_si (op1->value.real, 0) < 0)
- {
- gfc_error ("Raising a negative REAL at %L to "
- "a REAL power is prohibited", &op1->where);
- gfc_free_expr (result);
- return ARITH_PROHIBIT;
- }
-
- mpfr_pow (result->value.real, op1->value.real, op2->value.real,
- GFC_RND_MODE);
- break;
-
- case BT_COMPLEX:
- {
- if (gfc_init_expr_flag)
- {
- if (!gfc_notify_std (GFC_STD_F2003, "Noninteger "
- "exponent in an initialization "
- "expression at %L", &op2->where))
- {
- gfc_free_expr (result);
- return ARITH_PROHIBIT;
- }
- }
-
- mpc_pow (result->value.complex, op1->value.complex,
- op2->value.complex, GFC_MPC_RND_MODE);
- }
- break;
- default:
- gfc_internal_error ("arith_power(): unknown type");
- }
-
- if (rc == ARITH_OK)
- rc = gfc_range_check (result);
-
- return check_result (rc, op1, result, resultp);
-}
-
-
-/* Concatenate two string constants. */
-
-static arith
-gfc_arith_concat (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
- size_t len;
-
- /* By cleverly playing around with constructors, it is possible
- to get mismaching types here. */
- if (op1->ts.type != BT_CHARACTER || op2->ts.type != BT_CHARACTER
- || op1->ts.kind != op2->ts.kind)
- return ARITH_WRONGCONCAT;
-
- result = gfc_get_constant_expr (BT_CHARACTER, op1->ts.kind,
- &op1->where);
-
- len = op1->value.character.length + op2->value.character.length;
-
- result->value.character.string = gfc_get_wide_string (len + 1);
- result->value.character.length = len;
-
- memcpy (result->value.character.string, op1->value.character.string,
- op1->value.character.length * sizeof (gfc_char_t));
-
- memcpy (&result->value.character.string[op1->value.character.length],
- op2->value.character.string,
- op2->value.character.length * sizeof (gfc_char_t));
-
- result->value.character.string[len] = '\0';
-
- *resultp = result;
-
- return ARITH_OK;
-}
-
-/* Comparison between real values; returns 0 if (op1 .op. op2) is true.
- This function mimics mpfr_cmp but takes NaN into account. */
-
-static int
-compare_real (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- int rc;
- switch (op)
- {
- case INTRINSIC_EQ:
- rc = mpfr_equal_p (op1->value.real, op2->value.real) ? 0 : 1;
- break;
- case INTRINSIC_GT:
- rc = mpfr_greater_p (op1->value.real, op2->value.real) ? 1 : -1;
- break;
- case INTRINSIC_GE:
- rc = mpfr_greaterequal_p (op1->value.real, op2->value.real) ? 1 : -1;
- break;
- case INTRINSIC_LT:
- rc = mpfr_less_p (op1->value.real, op2->value.real) ? -1 : 1;
- break;
- case INTRINSIC_LE:
- rc = mpfr_lessequal_p (op1->value.real, op2->value.real) ? -1 : 1;
- break;
- default:
- gfc_internal_error ("compare_real(): Bad operator");
- }
-
- return rc;
-}
-
-/* Comparison operators. Assumes that the two expression nodes
- contain two constants of the same type. The op argument is
- needed to handle NaN correctly. */
-
-int
-gfc_compare_expr (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- int rc;
-
- switch (op1->ts.type)
- {
- case BT_INTEGER:
- rc = mpz_cmp (op1->value.integer, op2->value.integer);
- break;
-
- case BT_REAL:
- rc = compare_real (op1, op2, op);
- break;
-
- case BT_CHARACTER:
- rc = gfc_compare_string (op1, op2);
- break;
-
- case BT_LOGICAL:
- rc = ((!op1->value.logical && op2->value.logical)
- || (op1->value.logical && !op2->value.logical));
- break;
-
- default:
- gfc_internal_error ("gfc_compare_expr(): Bad basic type");
- }
-
- return rc;
-}
-
-
-/* Compare a pair of complex numbers. Naturally, this is only for
- equality and inequality. */
-
-static int
-compare_complex (gfc_expr *op1, gfc_expr *op2)
-{
- return mpc_cmp (op1->value.complex, op2->value.complex) == 0;
-}
-
-
-/* Given two constant strings and the inverse collating sequence, compare the
- strings. We return -1 for a < b, 0 for a == b and 1 for a > b.
- We use the processor's default collating sequence. */
-
-int
-gfc_compare_string (gfc_expr *a, gfc_expr *b)
-{
- size_t len, alen, blen, i;
- gfc_char_t ac, bc;
-
- alen = a->value.character.length;
- blen = b->value.character.length;
-
- len = MAX(alen, blen);
-
- for (i = 0; i < len; i++)
- {
- ac = ((i < alen) ? a->value.character.string[i] : ' ');
- bc = ((i < blen) ? b->value.character.string[i] : ' ');
-
- if (ac < bc)
- return -1;
- if (ac > bc)
- return 1;
- }
-
- /* Strings are equal */
- return 0;
-}
-
-
-int
-gfc_compare_with_Cstring (gfc_expr *a, const char *b, bool case_sensitive)
-{
- size_t len, alen, blen, i;
- gfc_char_t ac, bc;
-
- alen = a->value.character.length;
- blen = strlen (b);
-
- len = MAX(alen, blen);
-
- for (i = 0; i < len; i++)
- {
- ac = ((i < alen) ? a->value.character.string[i] : ' ');
- bc = ((i < blen) ? b[i] : ' ');
-
- if (!case_sensitive)
- {
- ac = TOLOWER (ac);
- bc = TOLOWER (bc);
- }
-
- if (ac < bc)
- return -1;
- if (ac > bc)
- return 1;
- }
-
- /* Strings are equal */
- return 0;
-}
-
-
-/* Specific comparison subroutines. */
-
-static arith
-gfc_arith_eq (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
- &op1->where);
- result->value.logical = (op1->ts.type == BT_COMPLEX)
- ? compare_complex (op1, op2)
- : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) == 0);
-
- *resultp = result;
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_ne (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
- &op1->where);
- result->value.logical = (op1->ts.type == BT_COMPLEX)
- ? !compare_complex (op1, op2)
- : (gfc_compare_expr (op1, op2, INTRINSIC_EQ) != 0);
-
- *resultp = result;
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_gt (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
- &op1->where);
- result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GT) > 0);
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_ge (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
- &op1->where);
- result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_GE) >= 0);
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_lt (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
- &op1->where);
- result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LT) < 0);
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-gfc_arith_le (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, gfc_default_logical_kind,
- &op1->where);
- result->value.logical = (gfc_compare_expr (op1, op2, INTRINSIC_LE) <= 0);
- *resultp = result;
-
- return ARITH_OK;
-}
-
-
-static arith
-reduce_unary (arith (*eval) (gfc_expr *, gfc_expr **), gfc_expr *op,
- gfc_expr **result)
-{
- gfc_constructor_base head;
- gfc_constructor *c;
- gfc_expr *r;
- arith rc;
-
- if (op->expr_type == EXPR_CONSTANT)
- return eval (op, result);
-
- rc = ARITH_OK;
- head = gfc_constructor_copy (op->value.constructor);
- for (c = gfc_constructor_first (head); c; c = gfc_constructor_next (c))
- {
- rc = reduce_unary (eval, c->expr, &r);
-
- if (rc != ARITH_OK)
- break;
-
- gfc_replace_expr (c->expr, r);
- }
-
- if (rc != ARITH_OK)
- gfc_constructor_free (head);
- else
- {
- gfc_constructor *c = gfc_constructor_first (head);
- r = gfc_get_array_expr (c->expr->ts.type, c->expr->ts.kind,
- &op->where);
- r->shape = gfc_copy_shape (op->shape, op->rank);
- r->rank = op->rank;
- r->value.constructor = head;
- *result = r;
- }
-
- return rc;
-}
-
-
-static arith
-reduce_binary_ac (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2, gfc_expr **result)
-{
- gfc_constructor_base head;
- gfc_constructor *c;
- gfc_expr *r;
- arith rc = ARITH_OK;
-
- head = gfc_constructor_copy (op1->value.constructor);
- for (c = gfc_constructor_first (head); c; c = gfc_constructor_next (c))
- {
- if (c->expr->expr_type == EXPR_CONSTANT)
- rc = eval (c->expr, op2, &r);
- else
- rc = reduce_binary_ac (eval, c->expr, op2, &r);
-
- if (rc != ARITH_OK)
- break;
-
- gfc_replace_expr (c->expr, r);
- }
-
- if (rc != ARITH_OK)
- gfc_constructor_free (head);
- else
- {
- gfc_constructor *c = gfc_constructor_first (head);
- r = gfc_get_array_expr (c->expr->ts.type, c->expr->ts.kind,
- &op1->where);
- r->shape = gfc_copy_shape (op1->shape, op1->rank);
- r->rank = op1->rank;
- r->value.constructor = head;
- *result = r;
- }
-
- return rc;
-}
-
-
-static arith
-reduce_binary_ca (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2, gfc_expr **result)
-{
- gfc_constructor_base head;
- gfc_constructor *c;
- gfc_expr *r;
- arith rc = ARITH_OK;
-
- head = gfc_constructor_copy (op2->value.constructor);
- for (c = gfc_constructor_first (head); c; c = gfc_constructor_next (c))
- {
- if (c->expr->expr_type == EXPR_CONSTANT)
- rc = eval (op1, c->expr, &r);
- else
- rc = reduce_binary_ca (eval, op1, c->expr, &r);
-
- if (rc != ARITH_OK)
- break;
-
- gfc_replace_expr (c->expr, r);
- }
-
- if (rc != ARITH_OK)
- gfc_constructor_free (head);
- else
- {
- gfc_constructor *c = gfc_constructor_first (head);
- r = gfc_get_array_expr (c->expr->ts.type, c->expr->ts.kind,
- &op2->where);
- r->shape = gfc_copy_shape (op2->shape, op2->rank);
- r->rank = op2->rank;
- r->value.constructor = head;
- *result = r;
- }
-
- return rc;
-}
-
-
-/* We need a forward declaration of reduce_binary. */
-static arith reduce_binary (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2, gfc_expr **result);
-
-
-static arith
-reduce_binary_aa (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2, gfc_expr **result)
-{
- gfc_constructor_base head;
- gfc_constructor *c, *d;
- gfc_expr *r;
- arith rc = ARITH_OK;
-
- if (!gfc_check_conformance (op1, op2, _("elemental binary operation")))
- return ARITH_INCOMMENSURATE;
-
- head = gfc_constructor_copy (op1->value.constructor);
- for (c = gfc_constructor_first (head),
- d = gfc_constructor_first (op2->value.constructor);
- c && d;
- c = gfc_constructor_next (c), d = gfc_constructor_next (d))
- {
- rc = reduce_binary (eval, c->expr, d->expr, &r);
- if (rc != ARITH_OK)
- break;
-
- gfc_replace_expr (c->expr, r);
- }
-
- if (c || d)
- rc = ARITH_INCOMMENSURATE;
-
- if (rc != ARITH_OK)
- gfc_constructor_free (head);
- else
- {
- gfc_constructor *c = gfc_constructor_first (head);
- r = gfc_get_array_expr (c->expr->ts.type, c->expr->ts.kind,
- &op1->where);
- r->shape = gfc_copy_shape (op1->shape, op1->rank);
- r->rank = op1->rank;
- r->value.constructor = head;
- *result = r;
- }
-
- return rc;
-}
-
-
-static arith
-reduce_binary (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2, gfc_expr **result)
-{
- if (op1->expr_type == EXPR_CONSTANT && op2->expr_type == EXPR_CONSTANT)
- return eval (op1, op2, result);
-
- if (op1->expr_type == EXPR_CONSTANT && op2->expr_type == EXPR_ARRAY)
- return reduce_binary_ca (eval, op1, op2, result);
-
- if (op1->expr_type == EXPR_ARRAY && op2->expr_type == EXPR_CONSTANT)
- return reduce_binary_ac (eval, op1, op2, result);
-
- return reduce_binary_aa (eval, op1, op2, result);
-}
-
-
-typedef union
-{
- arith (*f2)(gfc_expr *, gfc_expr **);
- arith (*f3)(gfc_expr *, gfc_expr *, gfc_expr **);
-}
-eval_f;
-
-/* High level arithmetic subroutines. These subroutines go into
- eval_intrinsic(), which can do one of several things to its
- operands. If the operands are incompatible with the intrinsic
- operation, we return a node pointing to the operands and hope that
- an operator interface is found during resolution.
-
- If the operands are compatible and are constants, then we try doing
- the arithmetic. We also handle the cases where either or both
- operands are array constructors. */
-
-static gfc_expr *
-eval_intrinsic (gfc_intrinsic_op op,
- eval_f eval, gfc_expr *op1, gfc_expr *op2)
-{
- gfc_expr temp, *result;
- int unary;
- arith rc;
-
- gfc_clear_ts (&temp.ts);
-
- switch (op)
- {
- /* Logical unary */
- case INTRINSIC_NOT:
- if (op1->ts.type != BT_LOGICAL)
- goto runtime;
-
- temp.ts.type = BT_LOGICAL;
- temp.ts.kind = gfc_default_logical_kind;
- unary = 1;
- break;
-
- /* Logical binary operators */
- case INTRINSIC_OR:
- case INTRINSIC_AND:
- case INTRINSIC_NEQV:
- case INTRINSIC_EQV:
- if (op1->ts.type != BT_LOGICAL || op2->ts.type != BT_LOGICAL)
- goto runtime;
-
- temp.ts.type = BT_LOGICAL;
- temp.ts.kind = gfc_default_logical_kind;
- unary = 0;
- break;
-
- /* Numeric unary */
- case INTRINSIC_UPLUS:
- case INTRINSIC_UMINUS:
- if (!gfc_numeric_ts (&op1->ts))
- goto runtime;
-
- temp.ts = op1->ts;
- unary = 1;
- break;
-
- case INTRINSIC_PARENTHESES:
- temp.ts = op1->ts;
- unary = 1;
- break;
-
- /* Additional restrictions for ordering relations. */
- case INTRINSIC_GE:
- case INTRINSIC_GE_OS:
- case INTRINSIC_LT:
- case INTRINSIC_LT_OS:
- case INTRINSIC_LE:
- case INTRINSIC_LE_OS:
- case INTRINSIC_GT:
- case INTRINSIC_GT_OS:
- if (op1->ts.type == BT_COMPLEX || op2->ts.type == BT_COMPLEX)
- {
- temp.ts.type = BT_LOGICAL;
- temp.ts.kind = gfc_default_logical_kind;
- goto runtime;
- }
-
- /* Fall through */
- case INTRINSIC_EQ:
- case INTRINSIC_EQ_OS:
- case INTRINSIC_NE:
- case INTRINSIC_NE_OS:
- if (op1->ts.type == BT_CHARACTER && op2->ts.type == BT_CHARACTER)
- {
- unary = 0;
- temp.ts.type = BT_LOGICAL;
- temp.ts.kind = gfc_default_logical_kind;
-
- /* If kind mismatch, exit and we'll error out later. */
- if (op1->ts.kind != op2->ts.kind)
- goto runtime;
-
- break;
- }
-
- gcc_fallthrough ();
- /* Numeric binary */
- case INTRINSIC_PLUS:
- case INTRINSIC_MINUS:
- case INTRINSIC_TIMES:
- case INTRINSIC_DIVIDE:
- case INTRINSIC_POWER:
- if (!gfc_numeric_ts (&op1->ts) || !gfc_numeric_ts (&op2->ts))
- goto runtime;
-
- /* Insert any necessary type conversions to make the operands
- compatible. */
-
- temp.expr_type = EXPR_OP;
- gfc_clear_ts (&temp.ts);
- temp.value.op.op = op;
-
- temp.value.op.op1 = op1;
- temp.value.op.op2 = op2;
-
- gfc_type_convert_binary (&temp, warn_conversion || warn_conversion_extra);
-
- if (op == INTRINSIC_EQ || op == INTRINSIC_NE
- || op == INTRINSIC_GE || op == INTRINSIC_GT
- || op == INTRINSIC_LE || op == INTRINSIC_LT
- || op == INTRINSIC_EQ_OS || op == INTRINSIC_NE_OS
- || op == INTRINSIC_GE_OS || op == INTRINSIC_GT_OS
- || op == INTRINSIC_LE_OS || op == INTRINSIC_LT_OS)
- {
- temp.ts.type = BT_LOGICAL;
- temp.ts.kind = gfc_default_logical_kind;
- }
-
- unary = 0;
- break;
-
- /* Character binary */
- case INTRINSIC_CONCAT:
- if (op1->ts.type != BT_CHARACTER || op2->ts.type != BT_CHARACTER
- || op1->ts.kind != op2->ts.kind)
- goto runtime;
-
- temp.ts.type = BT_CHARACTER;
- temp.ts.kind = op1->ts.kind;
- unary = 0;
- break;
-
- case INTRINSIC_USER:
- goto runtime;
-
- default:
- gfc_internal_error ("eval_intrinsic(): Bad operator");
- }
-
- if (op1->expr_type != EXPR_CONSTANT
- && (op1->expr_type != EXPR_ARRAY
- || !gfc_is_constant_expr (op1) || !gfc_expanded_ac (op1)))
- goto runtime;
-
- if (op2 != NULL
- && op2->expr_type != EXPR_CONSTANT
- && (op2->expr_type != EXPR_ARRAY
- || !gfc_is_constant_expr (op2) || !gfc_expanded_ac (op2)))
- goto runtime;
-
- if (unary)
- rc = reduce_unary (eval.f2, op1, &result);
- else
- rc = reduce_binary (eval.f3, op1, op2, &result);
-
-
- /* Something went wrong. */
- if (op == INTRINSIC_POWER && rc == ARITH_PROHIBIT)
- return NULL;
-
- if (rc != ARITH_OK)
- {
- gfc_error (gfc_arith_error (rc), &op1->where);
- if (rc == ARITH_OVERFLOW)
- goto done;
-
- if (rc == ARITH_DIV0 && op2->ts.type == BT_INTEGER)
- gfc_seen_div0 = true;
-
- return NULL;
- }
-
-done:
-
- gfc_free_expr (op1);
- gfc_free_expr (op2);
- return result;
-
-runtime:
- /* Create a run-time expression. */
- result = gfc_get_operator_expr (&op1->where, op, op1, op2);
- result->ts = temp.ts;
-
- return result;
-}
-
-
-/* Modify type of expression for zero size array. */
-
-static gfc_expr *
-eval_type_intrinsic0 (gfc_intrinsic_op iop, gfc_expr *op)
-{
- if (op == NULL)
- gfc_internal_error ("eval_type_intrinsic0(): op NULL");
-
- switch (iop)
- {
- case INTRINSIC_GE:
- case INTRINSIC_GE_OS:
- case INTRINSIC_LT:
- case INTRINSIC_LT_OS:
- case INTRINSIC_LE:
- case INTRINSIC_LE_OS:
- case INTRINSIC_GT:
- case INTRINSIC_GT_OS:
- case INTRINSIC_EQ:
- case INTRINSIC_EQ_OS:
- case INTRINSIC_NE:
- case INTRINSIC_NE_OS:
- op->ts.type = BT_LOGICAL;
- op->ts.kind = gfc_default_logical_kind;
- break;
-
- default:
- break;
- }
-
- return op;
-}
-
-
-/* Return nonzero if the expression is a zero size array. */
-
-static int
-gfc_zero_size_array (gfc_expr *e)
-{
- if (e->expr_type != EXPR_ARRAY)
- return 0;
-
- return e->value.constructor == NULL;
-}
-
-
-/* Reduce a binary expression where at least one of the operands
- involves a zero-length array. Returns NULL if neither of the
- operands is a zero-length array. */
-
-static gfc_expr *
-reduce_binary0 (gfc_expr *op1, gfc_expr *op2)
-{
- if (gfc_zero_size_array (op1))
- {
- gfc_free_expr (op2);
- return op1;
- }
-
- if (gfc_zero_size_array (op2))
- {
- gfc_free_expr (op1);
- return op2;
- }
-
- return NULL;
-}
-
-
-static gfc_expr *
-eval_intrinsic_f2 (gfc_intrinsic_op op,
- arith (*eval) (gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2)
-{
- gfc_expr *result;
- eval_f f;
-
- if (op2 == NULL)
- {
- if (gfc_zero_size_array (op1))
- return eval_type_intrinsic0 (op, op1);
- }
- else
- {
- result = reduce_binary0 (op1, op2);
- if (result != NULL)
- return eval_type_intrinsic0 (op, result);
- }
-
- f.f2 = eval;
- return eval_intrinsic (op, f, op1, op2);
-}
-
-
-static gfc_expr *
-eval_intrinsic_f3 (gfc_intrinsic_op op,
- arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **),
- gfc_expr *op1, gfc_expr *op2)
-{
- gfc_expr *result;
- eval_f f;
-
- if (!op1 && !op2)
- return NULL;
-
- result = reduce_binary0 (op1, op2);
- if (result != NULL)
- return eval_type_intrinsic0(op, result);
-
- f.f3 = eval;
- return eval_intrinsic (op, f, op1, op2);
-}
-
-
-gfc_expr *
-gfc_parentheses (gfc_expr *op)
-{
- if (gfc_is_constant_expr (op))
- return op;
-
- return eval_intrinsic_f2 (INTRINSIC_PARENTHESES, gfc_arith_identity,
- op, NULL);
-}
-
-gfc_expr *
-gfc_uplus (gfc_expr *op)
-{
- return eval_intrinsic_f2 (INTRINSIC_UPLUS, gfc_arith_identity, op, NULL);
-}
-
-
-gfc_expr *
-gfc_uminus (gfc_expr *op)
-{
- return eval_intrinsic_f2 (INTRINSIC_UMINUS, gfc_arith_uminus, op, NULL);
-}
-
-
-gfc_expr *
-gfc_add (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_PLUS, gfc_arith_plus, op1, op2);
-}
-
-
-gfc_expr *
-gfc_subtract (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_MINUS, gfc_arith_minus, op1, op2);
-}
-
-
-gfc_expr *
-gfc_multiply (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_TIMES, gfc_arith_times, op1, op2);
-}
-
-
-gfc_expr *
-gfc_divide (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_DIVIDE, gfc_arith_divide, op1, op2);
-}
-
-
-gfc_expr *
-gfc_power (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_POWER, arith_power, op1, op2);
-}
-
-
-gfc_expr *
-gfc_concat (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_CONCAT, gfc_arith_concat, op1, op2);
-}
-
-
-gfc_expr *
-gfc_and (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_AND, gfc_arith_and, op1, op2);
-}
-
-
-gfc_expr *
-gfc_or (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_OR, gfc_arith_or, op1, op2);
-}
-
-
-gfc_expr *
-gfc_not (gfc_expr *op1)
-{
- return eval_intrinsic_f2 (INTRINSIC_NOT, gfc_arith_not, op1, NULL);
-}
-
-
-gfc_expr *
-gfc_eqv (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_EQV, gfc_arith_eqv, op1, op2);
-}
-
-
-gfc_expr *
-gfc_neqv (gfc_expr *op1, gfc_expr *op2)
-{
- return eval_intrinsic_f3 (INTRINSIC_NEQV, gfc_arith_neqv, op1, op2);
-}
-
-
-gfc_expr *
-gfc_eq (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- return eval_intrinsic_f3 (op, gfc_arith_eq, op1, op2);
-}
-
-
-gfc_expr *
-gfc_ne (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- return eval_intrinsic_f3 (op, gfc_arith_ne, op1, op2);
-}
-
-
-gfc_expr *
-gfc_gt (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- return eval_intrinsic_f3 (op, gfc_arith_gt, op1, op2);
-}
-
-
-gfc_expr *
-gfc_ge (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- return eval_intrinsic_f3 (op, gfc_arith_ge, op1, op2);
-}
-
-
-gfc_expr *
-gfc_lt (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- return eval_intrinsic_f3 (op, gfc_arith_lt, op1, op2);
-}
-
-
-gfc_expr *
-gfc_le (gfc_expr *op1, gfc_expr *op2, gfc_intrinsic_op op)
-{
- return eval_intrinsic_f3 (op, gfc_arith_le, op1, op2);
-}
-
-
-/******* Simplification of intrinsic functions with constant arguments *****/
-
-
-/* Deal with an arithmetic error. */
-
-static void
-arith_error (arith rc, gfc_typespec *from, gfc_typespec *to, locus *where)
-{
- switch (rc)
- {
- case ARITH_OK:
- gfc_error ("Arithmetic OK converting %s to %s at %L",
- gfc_typename (from), gfc_typename (to), where);
- break;
- case ARITH_OVERFLOW:
- gfc_error ("Arithmetic overflow converting %s to %s at %L. This check "
- "can be disabled with the option %<-fno-range-check%>",
- gfc_typename (from), gfc_typename (to), where);
- break;
- case ARITH_UNDERFLOW:
- gfc_error ("Arithmetic underflow converting %s to %s at %L. This check "
- "can be disabled with the option %<-fno-range-check%>",
- gfc_typename (from), gfc_typename (to), where);
- break;
- case ARITH_NAN:
- gfc_error ("Arithmetic NaN converting %s to %s at %L. This check "
- "can be disabled with the option %<-fno-range-check%>",
- gfc_typename (from), gfc_typename (to), where);
- break;
- case ARITH_DIV0:
- gfc_error ("Division by zero converting %s to %s at %L",
- gfc_typename (from), gfc_typename (to), where);
- break;
- case ARITH_INCOMMENSURATE:
- gfc_error ("Array operands are incommensurate converting %s to %s at %L",
- gfc_typename (from), gfc_typename (to), where);
- break;
- case ARITH_ASYMMETRIC:
- gfc_error ("Integer outside symmetric range implied by Standard Fortran"
- " converting %s to %s at %L",
- gfc_typename (from), gfc_typename (to), where);
- break;
- default:
- gfc_internal_error ("gfc_arith_error(): Bad error code");
- }
-
- /* TODO: Do something about the error, i.e., throw exception, return
- NaN, etc. */
-}
-
-/* Returns true if significant bits were lost when converting real
- constant r from from_kind to to_kind. */
-
-static bool
-wprecision_real_real (mpfr_t r, int from_kind, int to_kind)
-{
- mpfr_t rv, diff;
- bool ret;
-
- gfc_set_model_kind (to_kind);
- mpfr_init (rv);
- gfc_set_model_kind (from_kind);
- mpfr_init (diff);
-
- mpfr_set (rv, r, GFC_RND_MODE);
- mpfr_sub (diff, rv, r, GFC_RND_MODE);
-
- ret = ! mpfr_zero_p (diff);
- mpfr_clear (rv);
- mpfr_clear (diff);
- return ret;
-}
-
-/* Return true if conversion from an integer to a real loses precision. */
-
-static bool
-wprecision_int_real (mpz_t n, mpfr_t r)
-{
- bool ret;
- mpz_t i;
- mpz_init (i);
- mpfr_get_z (i, r, GFC_RND_MODE);
- mpz_sub (i, i, n);
- ret = mpz_cmp_si (i, 0) != 0;
- mpz_clear (i);
- return ret;
-}
-
-/* Convert integers to integers. */
-
-gfc_expr *
-gfc_int2int (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (BT_INTEGER, kind, &src->where);
-
- mpz_set (result->value.integer, src->value.integer);
-
- if ((rc = gfc_check_integer_range (result->value.integer, kind)) != ARITH_OK)
- {
- if (rc == ARITH_ASYMMETRIC)
- {
- gfc_warning (0, gfc_arith_error (rc), &src->where);
- }
- else
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
- }
-
- /* If we do not trap numeric overflow, we need to convert the number to
- signed, throwing away high-order bits if necessary. */
- if (flag_range_check == 0)
- {
- int k;
-
- k = gfc_validate_kind (BT_INTEGER, kind, false);
- gfc_convert_mpz_to_signed (result->value.integer,
- gfc_integer_kinds[k].bit_size);
-
- if (warn_conversion && !src->do_not_warn && kind < src->ts.kind)
- gfc_warning_now (OPT_Wconversion, "Conversion from %qs to %qs at %L",
- gfc_typename (&src->ts), gfc_typename (&result->ts),
- &src->where);
- }
- return result;
-}
-
-
-/* Convert integers to reals. */
-
-gfc_expr *
-gfc_int2real (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (BT_REAL, kind, &src->where);
-
- mpfr_set_z (result->value.real, src->value.integer, GFC_RND_MODE);
-
- if ((rc = gfc_check_real_range (result->value.real, kind)) != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- if (warn_conversion
- && wprecision_int_real (src->value.integer, result->value.real))
- gfc_warning (OPT_Wconversion, "Change of value in conversion "
- "from %qs to %qs at %L",
- gfc_typename (&src->ts),
- gfc_typename (&result->ts),
- &src->where);
-
- return result;
-}
-
-
-/* Convert default integer to default complex. */
-
-gfc_expr *
-gfc_int2complex (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
-
- result = gfc_get_constant_expr (BT_COMPLEX, kind, &src->where);
-
- mpc_set_z (result->value.complex, src->value.integer, GFC_MPC_RND_MODE);
-
- if ((rc = gfc_check_real_range (mpc_realref (result->value.complex), kind))
- != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- if (warn_conversion
- && wprecision_int_real (src->value.integer,
- mpc_realref (result->value.complex)))
- gfc_warning_now (OPT_Wconversion, "Change of value in conversion "
- "from %qs to %qs at %L",
- gfc_typename (&src->ts),
- gfc_typename (&result->ts),
- &src->where);
-
- return result;
-}
-
-
-/* Convert default real to default integer. */
-
-gfc_expr *
-gfc_real2int (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
- bool did_warn = false;
-
- result = gfc_get_constant_expr (BT_INTEGER, kind, &src->where);
-
- gfc_mpfr_to_mpz (result->value.integer, src->value.real, &src->where);
-
- if ((rc = gfc_check_integer_range (result->value.integer, kind)) != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- /* If there was a fractional part, warn about this. */
-
- if (warn_conversion)
- {
- mpfr_t f;
- mpfr_init (f);
- mpfr_frac (f, src->value.real, GFC_RND_MODE);
- if (mpfr_cmp_si (f, 0) != 0)
- {
- gfc_warning_now (OPT_Wconversion, "Change of value in conversion "
- "from %qs to %qs at %L", gfc_typename (&src->ts),
- gfc_typename (&result->ts), &src->where);
- did_warn = true;
- }
- }
- if (!did_warn && warn_conversion_extra)
- {
- gfc_warning_now (OPT_Wconversion_extra, "Conversion from %qs to %qs "
- "at %L", gfc_typename (&src->ts),
- gfc_typename (&result->ts), &src->where);
- }
-
- return result;
-}
-
-
-/* Convert real to real. */
-
-gfc_expr *
-gfc_real2real (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
- bool did_warn = false;
-
- result = gfc_get_constant_expr (BT_REAL, kind, &src->where);
-
- mpfr_set (result->value.real, src->value.real, GFC_RND_MODE);
-
- rc = gfc_check_real_range (result->value.real, kind);
-
- if (rc == ARITH_UNDERFLOW)
- {
- if (warn_underflow)
- gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where);
- mpfr_set_ui (result->value.real, 0, GFC_RND_MODE);
- }
- else if (rc != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- /* As a special bonus, don't warn about REAL values which are not changed by
- the conversion if -Wconversion is specified and -Wconversion-extra is
- not. */
-
- if ((warn_conversion || warn_conversion_extra) && src->ts.kind > kind)
- {
- int w = warn_conversion ? OPT_Wconversion : OPT_Wconversion_extra;
-
- /* Calculate the difference between the constant and the rounded
- value and check it against zero. */
-
- if (wprecision_real_real (src->value.real, src->ts.kind, kind))
- {
- gfc_warning_now (w, "Change of value in conversion from "
- "%qs to %qs at %L",
- gfc_typename (&src->ts), gfc_typename (&result->ts),
- &src->where);
- /* Make sure the conversion warning is not emitted again. */
- did_warn = true;
- }
- }
-
- if (!did_warn && warn_conversion_extra)
- gfc_warning_now (OPT_Wconversion_extra, "Conversion from %qs to %qs "
- "at %L", gfc_typename(&src->ts),
- gfc_typename(&result->ts), &src->where);
-
- return result;
-}
-
-
-/* Convert real to complex. */
-
-gfc_expr *
-gfc_real2complex (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
- bool did_warn = false;
-
- result = gfc_get_constant_expr (BT_COMPLEX, kind, &src->where);
-
- mpc_set_fr (result->value.complex, src->value.real, GFC_MPC_RND_MODE);
-
- rc = gfc_check_real_range (mpc_realref (result->value.complex), kind);
-
- if (rc == ARITH_UNDERFLOW)
- {
- if (warn_underflow)
- gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where);
- mpfr_set_ui (mpc_realref (result->value.complex), 0, GFC_RND_MODE);
- }
- else if (rc != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- if ((warn_conversion || warn_conversion_extra) && src->ts.kind > kind)
- {
- int w = warn_conversion ? OPT_Wconversion : OPT_Wconversion_extra;
-
- if (wprecision_real_real (src->value.real, src->ts.kind, kind))
- {
- gfc_warning_now (w, "Change of value in conversion from "
- "%qs to %qs at %L",
- gfc_typename (&src->ts), gfc_typename (&result->ts),
- &src->where);
- /* Make sure the conversion warning is not emitted again. */
- did_warn = true;
- }
- }
-
- if (!did_warn && warn_conversion_extra)
- gfc_warning_now (OPT_Wconversion_extra, "Conversion from %qs to %qs "
- "at %L", gfc_typename(&src->ts),
- gfc_typename(&result->ts), &src->where);
-
- return result;
-}
-
-
-/* Convert complex to integer. */
-
-gfc_expr *
-gfc_complex2int (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
- bool did_warn = false;
-
- result = gfc_get_constant_expr (BT_INTEGER, kind, &src->where);
-
- gfc_mpfr_to_mpz (result->value.integer, mpc_realref (src->value.complex),
- &src->where);
-
- if ((rc = gfc_check_integer_range (result->value.integer, kind)) != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- if (warn_conversion || warn_conversion_extra)
- {
- int w = warn_conversion ? OPT_Wconversion : OPT_Wconversion_extra;
-
- /* See if we discarded an imaginary part. */
- if (mpfr_cmp_si (mpc_imagref (src->value.complex), 0) != 0)
- {
- gfc_warning_now (w, "Non-zero imaginary part discarded "
- "in conversion from %qs to %qs at %L",
- gfc_typename(&src->ts), gfc_typename (&result->ts),
- &src->where);
- did_warn = true;
- }
-
- else {
- mpfr_t f;
-
- mpfr_init (f);
- mpfr_frac (f, src->value.real, GFC_RND_MODE);
- if (mpfr_cmp_si (f, 0) != 0)
- {
- gfc_warning_now (w, "Change of value in conversion from "
- "%qs to %qs at %L", gfc_typename (&src->ts),
- gfc_typename (&result->ts), &src->where);
- did_warn = true;
- }
- mpfr_clear (f);
- }
-
- if (!did_warn && warn_conversion_extra)
- {
- gfc_warning_now (OPT_Wconversion_extra, "Conversion from %qs to %qs "
- "at %L", gfc_typename (&src->ts),
- gfc_typename (&result->ts), &src->where);
- }
- }
-
- return result;
-}
-
-
-/* Convert complex to real. */
-
-gfc_expr *
-gfc_complex2real (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
- bool did_warn = false;
-
- result = gfc_get_constant_expr (BT_REAL, kind, &src->where);
-
- mpc_real (result->value.real, src->value.complex, GFC_RND_MODE);
-
- rc = gfc_check_real_range (result->value.real, kind);
-
- if (rc == ARITH_UNDERFLOW)
- {
- if (warn_underflow)
- gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where);
- mpfr_set_ui (result->value.real, 0, GFC_RND_MODE);
- }
- if (rc != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- if (warn_conversion || warn_conversion_extra)
- {
- int w = warn_conversion ? OPT_Wconversion : OPT_Wconversion_extra;
-
- /* See if we discarded an imaginary part. */
- if (mpfr_cmp_si (mpc_imagref (src->value.complex), 0) != 0)
- {
- gfc_warning (w, "Non-zero imaginary part discarded "
- "in conversion from %qs to %qs at %L",
- gfc_typename(&src->ts), gfc_typename (&result->ts),
- &src->where);
- did_warn = true;
- }
-
- /* Calculate the difference between the real constant and the rounded
- value and check it against zero. */
-
- if (kind > src->ts.kind
- && wprecision_real_real (mpc_realref (src->value.complex),
- src->ts.kind, kind))
- {
- gfc_warning_now (w, "Change of value in conversion from "
- "%qs to %qs at %L",
- gfc_typename (&src->ts), gfc_typename (&result->ts),
- &src->where);
- /* Make sure the conversion warning is not emitted again. */
- did_warn = true;
- }
- }
-
- if (!did_warn && warn_conversion_extra)
- gfc_warning_now (OPT_Wconversion, "Conversion from %qs to %qs at %L",
- gfc_typename(&src->ts), gfc_typename (&result->ts),
- &src->where);
-
- return result;
-}
-
-
-/* Convert complex to complex. */
-
-gfc_expr *
-gfc_complex2complex (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- arith rc;
- bool did_warn = false;
-
- result = gfc_get_constant_expr (BT_COMPLEX, kind, &src->where);
-
- mpc_set (result->value.complex, src->value.complex, GFC_MPC_RND_MODE);
-
- rc = gfc_check_real_range (mpc_realref (result->value.complex), kind);
-
- if (rc == ARITH_UNDERFLOW)
- {
- if (warn_underflow)
- gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where);
- mpfr_set_ui (mpc_realref (result->value.complex), 0, GFC_RND_MODE);
- }
- else if (rc != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- rc = gfc_check_real_range (mpc_imagref (result->value.complex), kind);
-
- if (rc == ARITH_UNDERFLOW)
- {
- if (warn_underflow)
- gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where);
- mpfr_set_ui (mpc_imagref (result->value.complex), 0, GFC_RND_MODE);
- }
- else if (rc != ARITH_OK)
- {
- arith_error (rc, &src->ts, &result->ts, &src->where);
- gfc_free_expr (result);
- return NULL;
- }
-
- if ((warn_conversion || warn_conversion_extra) && src->ts.kind > kind
- && (wprecision_real_real (mpc_realref (src->value.complex),
- src->ts.kind, kind)
- || wprecision_real_real (mpc_imagref (src->value.complex),
- src->ts.kind, kind)))
- {
- int w = warn_conversion ? OPT_Wconversion : OPT_Wconversion_extra;
-
- gfc_warning_now (w, "Change of value in conversion from "
- "%qs to %qs at %L",
- gfc_typename (&src->ts), gfc_typename (&result->ts),
- &src->where);
- did_warn = true;
- }
-
- if (!did_warn && warn_conversion_extra && src->ts.kind != kind)
- gfc_warning_now (OPT_Wconversion_extra, "Conversion from %qs to %qs "
- "at %L", gfc_typename(&src->ts),
- gfc_typename (&result->ts), &src->where);
-
- return result;
-}
-
-
-/* Logical kind conversion. */
-
-gfc_expr *
-gfc_log2log (gfc_expr *src, int kind)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, kind, &src->where);
- result->value.logical = src->value.logical;
-
- return result;
-}
-
-
-/* Convert logical to integer. */
-
-gfc_expr *
-gfc_log2int (gfc_expr *src, int kind)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_INTEGER, kind, &src->where);
- mpz_set_si (result->value.integer, src->value.logical);
-
- return result;
-}
-
-
-/* Convert integer to logical. */
-
-gfc_expr *
-gfc_int2log (gfc_expr *src, int kind)
-{
- gfc_expr *result;
-
- result = gfc_get_constant_expr (BT_LOGICAL, kind, &src->where);
- result->value.logical = (mpz_cmp_si (src->value.integer, 0) != 0);
-
- return result;
-}
-
-/* Convert character to character. We only use wide strings internally,
- so we only set the kind. */
-
-gfc_expr *
-gfc_character2character (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_copy_expr (src);
- result->ts.kind = kind;
-
- return result;
-}
-
-/* Helper function to set the representation in a Hollerith conversion.
- This assumes that the ts.type and ts.kind of the result have already
- been set. */
-
-static void
-hollerith2representation (gfc_expr *result, gfc_expr *src)
-{
- size_t src_len, result_len;
-
- src_len = src->representation.length - src->ts.u.pad;
- gfc_target_expr_size (result, &result_len);
-
- if (src_len > result_len)
- {
- gfc_warning (OPT_Wcharacter_truncation, "The Hollerith constant at %L "
- "is truncated in conversion to %qs", &src->where,
- gfc_typename(&result->ts));
- }
-
- result->representation.string = XCNEWVEC (char, result_len + 1);
- memcpy (result->representation.string, src->representation.string,
- MIN (result_len, src_len));
-
- if (src_len < result_len)
- memset (&result->representation.string[src_len], ' ', result_len - src_len);
-
- result->representation.string[result_len] = '\0'; /* For debugger */
- result->representation.length = result_len;
-}
-
-
-/* Helper function to set the representation in a character conversion.
- This assumes that the ts.type and ts.kind of the result have already
- been set. */
-
-static void
-character2representation (gfc_expr *result, gfc_expr *src)
-{
- size_t src_len, result_len, i;
- src_len = src->value.character.length;
- gfc_target_expr_size (result, &result_len);
-
- if (src_len > result_len)
- gfc_warning (OPT_Wcharacter_truncation, "The character constant at %L is "
- "truncated in conversion to %s", &src->where,
- gfc_typename(&result->ts));
-
- result->representation.string = XCNEWVEC (char, result_len + 1);
-
- for (i = 0; i < MIN (result_len, src_len); i++)
- result->representation.string[i] = (char) src->value.character.string[i];
-
- if (src_len < result_len)
- memset (&result->representation.string[src_len], ' ',
- result_len - src_len);
-
- result->representation.string[result_len] = '\0'; /* For debugger. */
- result->representation.length = result_len;
-}
-
-/* Convert Hollerith to integer. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_hollerith2int (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_INTEGER, kind, &src->where);
-
- hollerith2representation (result, src);
- gfc_interpret_integer (kind, (unsigned char *) result->representation.string,
- result->representation.length, result->value.integer);
-
- return result;
-}
-
-/* Convert character to integer. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_character2int (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_INTEGER, kind, &src->where);
-
- character2representation (result, src);
- gfc_interpret_integer (kind, (unsigned char *) result->representation.string,
- result->representation.length, result->value.integer);
- return result;
-}
-
-/* Convert Hollerith to real. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_hollerith2real (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_REAL, kind, &src->where);
-
- hollerith2representation (result, src);
- gfc_interpret_float (kind, (unsigned char *) result->representation.string,
- result->representation.length, result->value.real);
-
- return result;
-}
-
-/* Convert character to real. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_character2real (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_REAL, kind, &src->where);
-
- character2representation (result, src);
- gfc_interpret_float (kind, (unsigned char *) result->representation.string,
- result->representation.length, result->value.real);
-
- return result;
-}
-
-
-/* Convert Hollerith to complex. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_hollerith2complex (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_COMPLEX, kind, &src->where);
-
- hollerith2representation (result, src);
- gfc_interpret_complex (kind, (unsigned char *) result->representation.string,
- result->representation.length, result->value.complex);
-
- return result;
-}
-
-/* Convert character to complex. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_character2complex (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_COMPLEX, kind, &src->where);
-
- character2representation (result, src);
- gfc_interpret_complex (kind, (unsigned char *) result->representation.string,
- result->representation.length, result->value.complex);
-
- return result;
-}
-
-
-/* Convert Hollerith to character. */
-
-gfc_expr *
-gfc_hollerith2character (gfc_expr *src, int kind)
-{
- gfc_expr *result;
-
- result = gfc_copy_expr (src);
- result->ts.type = BT_CHARACTER;
- result->ts.kind = kind;
- result->ts.u.pad = 0;
-
- result->value.character.length = result->representation.length;
- result->value.character.string
- = gfc_char_to_widechar (result->representation.string);
-
- return result;
-}
-
-
-/* Convert Hollerith to logical. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_hollerith2logical (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_LOGICAL, kind, &src->where);
-
- hollerith2representation (result, src);
- gfc_interpret_logical (kind, (unsigned char *) result->representation.string,
- result->representation.length, &result->value.logical);
-
- return result;
-}
-
-/* Convert character to logical. The constant will be padded or truncated. */
-
-gfc_expr *
-gfc_character2logical (gfc_expr *src, int kind)
-{
- gfc_expr *result;
- result = gfc_get_constant_expr (BT_LOGICAL, kind, &src->where);
-
- character2representation (result, src);
- gfc_interpret_logical (kind, (unsigned char *) result->representation.string,
- result->representation.length, &result->value.logical);
-
- return result;
-}
generated by cgit v1.1 at 2025-05-31 12:59:00 +0000