aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/iresolve.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/iresolve.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/iresolve.c')
-rw-r--r--gcc/fortran/iresolve.c4050
1 files changed, 0 insertions, 4050 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c
deleted file mode 100644
index 97ac4eb..0000000
--- a/gcc/fortran/iresolve.c
+++ /dev/null
@@ -1,4050 +0,0 @@
-/* Intrinsic function resolution.
- Copyright (C) 2000-2022 Free Software Foundation, Inc.
- Contributed by Andy Vaught & Katherine Holcomb
-
-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/>. */
-
-
-/* Assign name and types to intrinsic procedures. For functions, the
- first argument to a resolution function is an expression pointer to
- the original function node and the rest are pointers to the
- arguments of the function call. For subroutines, a pointer to the
- code node is passed. The result type and library subroutine name
- are generally set according to the function arguments. */
-
-#include "config.h"
-#include "system.h"
-#include "coretypes.h"
-#include "tree.h"
-#include "gfortran.h"
-#include "stringpool.h"
-#include "intrinsic.h"
-#include "constructor.h"
-#include "arith.h"
-#include "trans.h"
-
-/* Given printf-like arguments, return a stable version of the result string.
-
- We already have a working, optimized string hashing table in the form of
- the identifier table. Reusing this table is likely not to be wasted,
- since if the function name makes it to the gimple output of the frontend,
- we'll have to create the identifier anyway. */
-
-const char *
-gfc_get_string (const char *format, ...)
-{
- /* Provide sufficient space for "_F.caf_token__symbol.symbol_MOD_symbol". */
- char temp_name[15 + 2*GFC_MAX_SYMBOL_LEN + 5 + GFC_MAX_SYMBOL_LEN + 1];
- const char *str;
- va_list ap;
- tree ident;
-
- /* Handle common case without vsnprintf and temporary buffer. */
- if (format[0] == '%' && format[1] == 's' && format[2] == '\0')
- {
- va_start (ap, format);
- str = va_arg (ap, const char *);
- va_end (ap);
- }
- else
- {
- int ret;
- va_start (ap, format);
- ret = vsnprintf (temp_name, sizeof (temp_name), format, ap);
- va_end (ap);
- if (ret < 1 || ret >= (int) sizeof (temp_name)) /* Reject truncation. */
- gfc_internal_error ("identifier overflow: %d", ret);
- temp_name[sizeof (temp_name) - 1] = 0;
- str = temp_name;
- }
-
- ident = get_identifier (str);
- return IDENTIFIER_POINTER (ident);
-}
-
-/* MERGE and SPREAD need to have source charlen's present for passing
- to the result expression. */
-static void
-check_charlen_present (gfc_expr *source)
-{
- if (source->ts.u.cl == NULL)
- source->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL);
-
- if (source->expr_type == EXPR_CONSTANT)
- {
- source->ts.u.cl->length
- = gfc_get_int_expr (gfc_charlen_int_kind, NULL,
- source->value.character.length);
- source->rank = 0;
- }
- else if (source->expr_type == EXPR_ARRAY)
- {
- gfc_constructor *c = gfc_constructor_first (source->value.constructor);
- source->ts.u.cl->length
- = gfc_get_int_expr (gfc_charlen_int_kind, NULL,
- c->expr->value.character.length);
- }
-}
-
-/* Helper function for resolving the "mask" argument. */
-
-static void
-resolve_mask_arg (gfc_expr *mask)
-{
-
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- if (mask->rank == 0)
- {
- /* For the scalar case, coerce the mask to kind=4 unconditionally
- (because this is the only kind we have a library function
- for). */
-
- if (mask->ts.kind != 4)
- {
- ts.type = BT_LOGICAL;
- ts.kind = 4;
- gfc_convert_type (mask, &ts, 2);
- }
- }
- else
- {
- /* In the library, we access the mask with a GFC_LOGICAL_1
- argument. No need to waste memory if we are about to create
- a temporary array. */
- if (mask->expr_type == EXPR_OP && mask->ts.kind != 1)
- {
- ts.type = BT_LOGICAL;
- ts.kind = 1;
- gfc_convert_type_warn (mask, &ts, 2, 0);
- }
- }
-}
-
-
-static void
-resolve_bound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind,
- const char *name, bool coarray)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
-
- if (dim == NULL)
- {
- f->rank = 1;
- if (array->rank != -1)
- {
- f->shape = gfc_get_shape (1);
- mpz_init_set_ui (f->shape[0], coarray ? gfc_get_corank (array)
- : array->rank);
- }
- }
-
- f->value.function.name = gfc_get_string ("%s", name);
-}
-
-
-static void
-resolve_transformational (const char *name, gfc_expr *f, gfc_expr *array,
- gfc_expr *dim, gfc_expr *mask)
-{
- const char *prefix;
-
- f->ts = array->ts;
-
- if (mask)
- {
- if (mask->rank == 0)
- prefix = "s";
- else
- prefix = "m";
-
- resolve_mask_arg (mask);
- }
- else
- prefix = "";
-
- if (dim != NULL)
- {
- f->rank = array->rank - 1;
- f->shape = gfc_copy_shape_excluding (array->shape, array->rank, dim);
- gfc_resolve_dim_arg (dim);
- }
-
- f->value.function.name
- = gfc_get_string (PREFIX ("%s%s_%c%d"), prefix, name,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
-}
-
-
-/********************** Resolution functions **********************/
-
-
-void
-gfc_resolve_abs (gfc_expr *f, gfc_expr *a)
-{
- f->ts = a->ts;
- if (f->ts.type == BT_COMPLEX)
- f->ts.type = BT_REAL;
-
- f->value.function.name
- = gfc_get_string ("__abs_%c%d", gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_access (gfc_expr *f, gfc_expr *name ATTRIBUTE_UNUSED,
- gfc_expr *mode ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
- f->value.function.name = PREFIX ("access_func");
-}
-
-
-void
-gfc_resolve_adjustl (gfc_expr *f, gfc_expr *string)
-{
- f->ts.type = BT_CHARACTER;
- f->ts.kind = string->ts.kind;
- if (string->ts.u.cl)
- f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl);
-
- f->value.function.name = gfc_get_string ("__adjustl_s%d", f->ts.kind);
-}
-
-
-void
-gfc_resolve_adjustr (gfc_expr *f, gfc_expr *string)
-{
- f->ts.type = BT_CHARACTER;
- f->ts.kind = string->ts.kind;
- if (string->ts.u.cl)
- f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl);
-
- f->value.function.name = gfc_get_string ("__adjustr_s%d", f->ts.kind);
-}
-
-
-static void
-gfc_resolve_char_achar (gfc_expr *f, gfc_expr *x, gfc_expr *kind,
- bool is_achar)
-{
- f->ts.type = BT_CHARACTER;
- f->ts.kind = (kind == NULL)
- ? gfc_default_character_kind : mpz_get_si (kind->value.integer);
- f->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL);
- f->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1);
-
- f->value.function.name
- = gfc_get_string ("__%schar_%d_%c%d", is_achar ? "a" : "", f->ts.kind,
- gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_achar (gfc_expr *f, gfc_expr *x, gfc_expr *kind)
-{
- gfc_resolve_char_achar (f, x, kind, true);
-}
-
-
-void
-gfc_resolve_acos (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__acos_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_acosh (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__acosh_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_aimag (gfc_expr *f, gfc_expr *x)
-{
- f->ts.type = BT_REAL;
- f->ts.kind = x->ts.kind;
- f->value.function.name
- = gfc_get_string ("__aimag_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_and (gfc_expr *f, gfc_expr *i, gfc_expr *j)
-{
- f->ts.type = i->ts.type;
- f->ts.kind = gfc_kind_max (i, j);
-
- if (i->ts.kind != j->ts.kind)
- {
- if (i->ts.kind == gfc_kind_max (i, j))
- gfc_convert_type (j, &i->ts, 2);
- else
- gfc_convert_type (i, &j->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__and_%c%d", gfc_type_letter (i->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_aint (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = a->ts.type;
- f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer);
-
- if (a->ts.kind != f->ts.kind)
- {
- ts.type = f->ts.type;
- ts.kind = f->ts.kind;
- gfc_convert_type (a, &ts, 2);
- }
- /* The resolved name is only used for specific intrinsics where
- the return kind is the same as the arg kind. */
- f->value.function.name
- = gfc_get_string ("__aint_%c%d", gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_dint (gfc_expr *f, gfc_expr *a)
-{
- gfc_resolve_aint (f, a, NULL);
-}
-
-
-void
-gfc_resolve_all (gfc_expr *f, gfc_expr *mask, gfc_expr *dim)
-{
- f->ts = mask->ts;
-
- if (dim != NULL)
- {
- gfc_resolve_dim_arg (dim);
- f->rank = mask->rank - 1;
- f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim);
- }
-
- f->value.function.name
- = gfc_get_string (PREFIX ("all_%c%d"), gfc_type_letter (mask->ts.type),
- gfc_type_abi_kind (&mask->ts));
-}
-
-
-void
-gfc_resolve_anint (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = a->ts.type;
- f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer);
-
- if (a->ts.kind != f->ts.kind)
- {
- ts.type = f->ts.type;
- ts.kind = f->ts.kind;
- gfc_convert_type (a, &ts, 2);
- }
-
- /* The resolved name is only used for specific intrinsics where
- the return kind is the same as the arg kind. */
- f->value.function.name
- = gfc_get_string ("__anint_%c%d", gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_dnint (gfc_expr *f, gfc_expr *a)
-{
- gfc_resolve_anint (f, a, NULL);
-}
-
-
-void
-gfc_resolve_any (gfc_expr *f, gfc_expr *mask, gfc_expr *dim)
-{
- f->ts = mask->ts;
-
- if (dim != NULL)
- {
- gfc_resolve_dim_arg (dim);
- f->rank = mask->rank - 1;
- f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim);
- }
-
- f->value.function.name
- = gfc_get_string (PREFIX ("any_%c%d"), gfc_type_letter (mask->ts.type),
- gfc_type_abi_kind (&mask->ts));
-}
-
-
-void
-gfc_resolve_asin (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-void
-gfc_resolve_asinh (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__asinh_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-void
-gfc_resolve_atan (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-void
-gfc_resolve_atanh (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__atanh_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-void
-gfc_resolve_atan2 (gfc_expr *f, gfc_expr *x, gfc_expr *y ATTRIBUTE_UNUSED)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__atan2_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-/* Resolve the BESYN and BESJN intrinsics. */
-
-void
-gfc_resolve_besn (gfc_expr *f, gfc_expr *n, gfc_expr *x)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts = x->ts;
- if (n->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- gfc_convert_type (n, &ts, 2);
- }
- f->value.function.name = gfc_get_string ("<intrinsic>");
-}
-
-
-void
-gfc_resolve_bessel_n2 (gfc_expr *f, gfc_expr *n1, gfc_expr *n2, gfc_expr *x)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts = x->ts;
- f->rank = 1;
- if (n1->expr_type == EXPR_CONSTANT && n2->expr_type == EXPR_CONSTANT)
- {
- f->shape = gfc_get_shape (1);
- mpz_init (f->shape[0]);
- mpz_sub (f->shape[0], n2->value.integer, n1->value.integer);
- mpz_add_ui (f->shape[0], f->shape[0], 1);
- }
-
- if (n1->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- gfc_convert_type (n1, &ts, 2);
- }
-
- if (n2->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- gfc_convert_type (n2, &ts, 2);
- }
-
- if (f->value.function.isym->id == GFC_ISYM_JN2)
- f->value.function.name = gfc_get_string (PREFIX ("bessel_jn_r%d"),
- gfc_type_abi_kind (&f->ts));
- else
- f->value.function.name = gfc_get_string (PREFIX ("bessel_yn_r%d"),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_btest (gfc_expr *f, gfc_expr *i, gfc_expr *pos)
-{
- f->ts.type = BT_LOGICAL;
- f->ts.kind = gfc_default_logical_kind;
- f->value.function.name
- = gfc_get_string ("__btest_%d_%d", i->ts.kind, pos->ts.kind);
-}
-
-
-void
-gfc_resolve_c_loc (gfc_expr *f, gfc_expr *x ATTRIBUTE_UNUSED)
-{
- f->ts = f->value.function.isym->ts;
-}
-
-
-void
-gfc_resolve_c_funloc (gfc_expr *f, gfc_expr *x ATTRIBUTE_UNUSED)
-{
- f->ts = f->value.function.isym->ts;
-}
-
-
-void
-gfc_resolve_ceiling (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = (kind == NULL)
- ? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
- f->value.function.name
- = gfc_get_string ("__ceiling_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_char (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- gfc_resolve_char_achar (f, a, kind, false);
-}
-
-
-void
-gfc_resolve_chdir (gfc_expr *f, gfc_expr *d ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("chdir_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_chdir_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->expr != NULL)
- kind = c->ext.actual->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("chdir_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_chmod (gfc_expr *f, gfc_expr *name ATTRIBUTE_UNUSED,
- gfc_expr *mode ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
- f->value.function.name = PREFIX ("chmod_func");
-}
-
-
-void
-gfc_resolve_chmod_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->next->expr != NULL)
- kind = c->ext.actual->next->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("chmod_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_cmplx (gfc_expr *f, gfc_expr *x, gfc_expr *y, gfc_expr *kind)
-{
- f->ts.type = BT_COMPLEX;
- f->ts.kind = (kind == NULL)
- ? gfc_default_real_kind : mpz_get_si (kind->value.integer);
-
- if (y == NULL)
- f->value.function.name
- = gfc_get_string ("__cmplx0_%d_%c%d", f->ts.kind,
- gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
- else
- f->value.function.name
- = gfc_get_string ("__cmplx1_%d_%c%d_%c%d", f->ts.kind,
- gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts),
- gfc_type_letter (y->ts.type),
- gfc_type_abi_kind (&y->ts));
-}
-
-
-void
-gfc_resolve_dcmplx (gfc_expr *f, gfc_expr *x, gfc_expr *y)
-{
- gfc_resolve_cmplx (f, x, y, gfc_get_int_expr (gfc_default_integer_kind, NULL,
- gfc_default_double_kind));
-}
-
-
-void
-gfc_resolve_complex (gfc_expr *f, gfc_expr *x, gfc_expr *y)
-{
- int kind;
-
- if (x->ts.type == BT_INTEGER)
- {
- if (y->ts.type == BT_INTEGER)
- kind = gfc_default_real_kind;
- else
- kind = y->ts.kind;
- }
- else
- {
- if (y->ts.type == BT_REAL)
- kind = (x->ts.kind > y->ts.kind) ? x->ts.kind : y->ts.kind;
- else
- kind = x->ts.kind;
- }
-
- f->ts.type = BT_COMPLEX;
- f->ts.kind = kind;
- f->value.function.name
- = gfc_get_string ("__cmplx1_%d_%c%d_%c%d", f->ts.kind,
- gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts),
- gfc_type_letter (y->ts.type),
- gfc_type_abi_kind (&y->ts));
-}
-
-
-void
-gfc_resolve_conjg (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__conjg_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_cos (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__cos_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_cosh (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__cosh_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_count (gfc_expr *f, gfc_expr *mask, gfc_expr *dim, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
-
- if (dim != NULL)
- {
- f->rank = mask->rank - 1;
- gfc_resolve_dim_arg (dim);
- f->shape = gfc_copy_shape_excluding (mask->shape, mask->rank, dim);
- }
-
- resolve_mask_arg (mask);
-
- f->value.function.name
- = gfc_get_string (PREFIX ("count_%d_%c"), gfc_type_abi_kind (&f->ts),
- gfc_type_letter (mask->ts.type));
-}
-
-
-void
-gfc_resolve_cshift (gfc_expr *f, gfc_expr *array, gfc_expr *shift,
- gfc_expr *dim)
-{
- int n, m;
-
- if (array->ts.type == BT_CHARACTER && array->ref)
- gfc_resolve_substring_charlen (array);
-
- f->ts = array->ts;
- f->rank = array->rank;
- f->shape = gfc_copy_shape (array->shape, array->rank);
-
- if (shift->rank > 0)
- n = 1;
- else
- n = 0;
-
- /* If dim kind is greater than default integer we need to use the larger. */
- m = gfc_default_integer_kind;
- if (dim != NULL)
- m = m < dim->ts.kind ? dim->ts.kind : m;
-
- /* Convert shift to at least m, so we don't need
- kind=1 and kind=2 versions of the library functions. */
- if (shift->ts.kind < m)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
- ts.type = BT_INTEGER;
- ts.kind = m;
- gfc_convert_type_warn (shift, &ts, 2, 0);
- }
-
- if (dim != NULL)
- {
- if (dim->expr_type != EXPR_CONSTANT && dim->symtree != NULL
- && dim->symtree->n.sym->attr.optional)
- {
- /* Mark this for later setting the type in gfc_conv_missing_dummy. */
- dim->representation.length = shift->ts.kind;
- }
- else
- {
- gfc_resolve_dim_arg (dim);
- /* Convert dim to shift's kind to reduce variations. */
- if (dim->ts.kind != shift->ts.kind)
- gfc_convert_type_warn (dim, &shift->ts, 2, 0);
- }
- }
-
- if (array->ts.type == BT_CHARACTER)
- {
- if (array->ts.kind == gfc_default_character_kind)
- f->value.function.name
- = gfc_get_string (PREFIX ("cshift%d_%d_char"), n, shift->ts.kind);
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("cshift%d_%d_char%d"), n, shift->ts.kind,
- array->ts.kind);
- }
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("cshift%d_%d"), n, shift->ts.kind);
-}
-
-
-void
-gfc_resolve_ctime (gfc_expr *f, gfc_expr *time)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_CHARACTER;
- f->ts.kind = gfc_default_character_kind;
-
- /* ctime TIME argument is a INTEGER(KIND=8), says the doc */
- if (time->ts.kind != 8)
- {
- ts.type = BT_INTEGER;
- ts.kind = 8;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (time, &ts, 2);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("ctime"));
-}
-
-
-void
-gfc_resolve_dble (gfc_expr *f, gfc_expr *a)
-{
- f->ts.type = BT_REAL;
- f->ts.kind = gfc_default_double_kind;
- f->value.function.name
- = gfc_get_string ("__dble_%c%d", gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_dim (gfc_expr *f, gfc_expr *a, gfc_expr *p)
-{
- f->ts.type = a->ts.type;
- if (p != NULL)
- f->ts.kind = gfc_kind_max (a,p);
- else
- f->ts.kind = a->ts.kind;
-
- if (p != NULL && a->ts.kind != p->ts.kind)
- {
- if (a->ts.kind == gfc_kind_max (a,p))
- gfc_convert_type (p, &a->ts, 2);
- else
- gfc_convert_type (a, &p->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__dim_%c%d", gfc_type_letter (f->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_dot_product (gfc_expr *f, gfc_expr *a, gfc_expr *b)
-{
- gfc_expr temp;
-
- temp.expr_type = EXPR_OP;
- gfc_clear_ts (&temp.ts);
- temp.value.op.op = INTRINSIC_NONE;
- temp.value.op.op1 = a;
- temp.value.op.op2 = b;
- gfc_type_convert_binary (&temp, 1);
- f->ts = temp.ts;
- f->value.function.name
- = gfc_get_string (PREFIX ("dot_product_%c%d"),
- gfc_type_letter (f->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_dprod (gfc_expr *f, gfc_expr *a ATTRIBUTE_UNUSED,
- gfc_expr *b ATTRIBUTE_UNUSED)
-{
- f->ts.kind = gfc_default_double_kind;
- f->ts.type = BT_REAL;
- f->value.function.name = gfc_get_string ("__dprod_r%d",
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_dshift (gfc_expr *f, gfc_expr *i, gfc_expr *j ATTRIBUTE_UNUSED,
- gfc_expr *shift ATTRIBUTE_UNUSED)
-{
- f->ts = i->ts;
- if (f->value.function.isym->id == GFC_ISYM_DSHIFTL)
- f->value.function.name = gfc_get_string ("dshiftl_i%d", f->ts.kind);
- else if (f->value.function.isym->id == GFC_ISYM_DSHIFTR)
- f->value.function.name = gfc_get_string ("dshiftr_i%d", f->ts.kind);
- else
- gcc_unreachable ();
-}
-
-
-void
-gfc_resolve_eoshift (gfc_expr *f, gfc_expr *array, gfc_expr *shift,
- gfc_expr *boundary, gfc_expr *dim)
-{
- int n, m;
-
- if (array->ts.type == BT_CHARACTER && array->ref)
- gfc_resolve_substring_charlen (array);
-
- f->ts = array->ts;
- f->rank = array->rank;
- f->shape = gfc_copy_shape (array->shape, array->rank);
-
- n = 0;
- if (shift->rank > 0)
- n = n | 1;
- if (boundary && boundary->rank > 0)
- n = n | 2;
-
- /* If dim kind is greater than default integer we need to use the larger. */
- m = gfc_default_integer_kind;
- if (dim != NULL)
- m = m < dim->ts.kind ? dim->ts.kind : m;
-
- /* Convert shift to at least m, so we don't need
- kind=1 and kind=2 versions of the library functions. */
- if (shift->ts.kind < m)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
- ts.type = BT_INTEGER;
- ts.kind = m;
- gfc_convert_type_warn (shift, &ts, 2, 0);
- }
-
- if (dim != NULL)
- {
- if (dim->expr_type != EXPR_CONSTANT && dim->symtree != NULL
- && dim->symtree->n.sym->attr.optional)
- {
- /* Mark this for later setting the type in gfc_conv_missing_dummy. */
- dim->representation.length = shift->ts.kind;
- }
- else
- {
- gfc_resolve_dim_arg (dim);
- /* Convert dim to shift's kind to reduce variations. */
- if (dim->ts.kind != shift->ts.kind)
- gfc_convert_type_warn (dim, &shift->ts, 2, 0);
- }
- }
-
- if (array->ts.type == BT_CHARACTER)
- {
- if (array->ts.kind == gfc_default_character_kind)
- f->value.function.name
- = gfc_get_string (PREFIX ("eoshift%d_%d_char"), n, shift->ts.kind);
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("eoshift%d_%d_char%d"), n, shift->ts.kind,
- array->ts.kind);
- }
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("eoshift%d_%d"), n, shift->ts.kind);
-}
-
-
-void
-gfc_resolve_exp (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__exp_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_exponent (gfc_expr *f, gfc_expr *x)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__exponent_%d", x->ts.kind);
-}
-
-
-/* Resolve the EXTENDS_TYPE_OF intrinsic function. */
-
-void
-gfc_resolve_extends_type_of (gfc_expr *f, gfc_expr *a, gfc_expr *mo)
-{
- gfc_symbol *vtab;
- gfc_symtree *st;
-
- /* Prevent double resolution. */
- if (f->ts.type == BT_LOGICAL)
- return;
-
- /* Replace the first argument with the corresponding vtab. */
- if (a->ts.type == BT_CLASS)
- gfc_add_vptr_component (a);
- else if (a->ts.type == BT_DERIVED)
- {
- locus where;
-
- vtab = gfc_find_derived_vtab (a->ts.u.derived);
- /* Clear the old expr. */
- gfc_free_ref_list (a->ref);
- where = a->where;
- memset (a, '\0', sizeof (gfc_expr));
- /* Construct a new one. */
- a->expr_type = EXPR_VARIABLE;
- st = gfc_find_symtree (vtab->ns->sym_root, vtab->name);
- a->symtree = st;
- a->ts = vtab->ts;
- a->where = where;
- }
-
- /* Replace the second argument with the corresponding vtab. */
- if (mo->ts.type == BT_CLASS)
- gfc_add_vptr_component (mo);
- else if (mo->ts.type == BT_DERIVED)
- {
- locus where;
-
- vtab = gfc_find_derived_vtab (mo->ts.u.derived);
- /* Clear the old expr. */
- where = mo->where;
- gfc_free_ref_list (mo->ref);
- memset (mo, '\0', sizeof (gfc_expr));
- /* Construct a new one. */
- mo->expr_type = EXPR_VARIABLE;
- st = gfc_find_symtree (vtab->ns->sym_root, vtab->name);
- mo->symtree = st;
- mo->ts = vtab->ts;
- mo->where = where;
- }
-
- f->ts.type = BT_LOGICAL;
- f->ts.kind = 4;
-
- f->value.function.isym->formal->ts = a->ts;
- f->value.function.isym->formal->next->ts = mo->ts;
-
- /* Call library function. */
- f->value.function.name = gfc_get_string (PREFIX ("is_extension_of"));
-}
-
-
-void
-gfc_resolve_fdate (gfc_expr *f)
-{
- f->ts.type = BT_CHARACTER;
- f->ts.kind = gfc_default_character_kind;
- f->value.function.name = gfc_get_string (PREFIX ("fdate"));
-}
-
-
-void
-gfc_resolve_floor (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = (kind == NULL)
- ? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
- f->value.function.name
- = gfc_get_string ("__floor%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_fnum (gfc_expr *f, gfc_expr *n)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- if (n->ts.kind != f->ts.kind)
- gfc_convert_type (n, &f->ts, 2);
- f->value.function.name = gfc_get_string (PREFIX ("fnum_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_fraction (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__fraction_%d", x->ts.kind);
-}
-
-
-/* Resolve single-argument g77 math intrinsics, eg BESY0, ERF. */
-
-void
-gfc_resolve_g77_math1 (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("<intrinsic>");
-}
-
-
-void
-gfc_resolve_gamma (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__tgamma_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_getcwd (gfc_expr *f, gfc_expr *n ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("getcwd"));
-}
-
-
-void
-gfc_resolve_getgid (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("getgid"));
-}
-
-
-void
-gfc_resolve_getpid (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("getpid"));
-}
-
-
-void
-gfc_resolve_getuid (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("getuid"));
-}
-
-
-void
-gfc_resolve_hostnm (gfc_expr *f, gfc_expr *n ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("hostnm"));
-}
-
-
-void
-gfc_resolve_hypot (gfc_expr *f, gfc_expr *x, gfc_expr *y ATTRIBUTE_UNUSED)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__hypot_r%d",
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_iall (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *mask)
-{
- resolve_transformational ("iall", f, array, dim, mask);
-}
-
-
-void
-gfc_resolve_iand (gfc_expr *f, gfc_expr *i, gfc_expr *j)
-{
- /* If the kind of i and j are different, then g77 cross-promoted the
- kinds to the largest value. The Fortran 95 standard requires the
- kinds to match. */
- if (i->ts.kind != j->ts.kind)
- {
- if (i->ts.kind == gfc_kind_max (i, j))
- gfc_convert_type (j, &i->ts, 2);
- else
- gfc_convert_type (i, &j->ts, 2);
- }
-
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__iand_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_iany (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *mask)
-{
- resolve_transformational ("iany", f, array, dim, mask);
-}
-
-
-void
-gfc_resolve_ibclr (gfc_expr *f, gfc_expr *i, gfc_expr *pos ATTRIBUTE_UNUSED)
-{
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__ibclr_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_ibits (gfc_expr *f, gfc_expr *i, gfc_expr *pos ATTRIBUTE_UNUSED,
- gfc_expr *len ATTRIBUTE_UNUSED)
-{
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__ibits_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_ibset (gfc_expr *f, gfc_expr *i, gfc_expr *pos ATTRIBUTE_UNUSED)
-{
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__ibset_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_iachar (gfc_expr *f, gfc_expr *c, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__ichar_%d", c->ts.kind);
-}
-
-
-void
-gfc_resolve_ichar (gfc_expr *f, gfc_expr *c, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__ichar_%d", c->ts.kind);
-}
-
-
-void
-gfc_resolve_idnint (gfc_expr *f, gfc_expr *a)
-{
- gfc_resolve_nint (f, a, NULL);
-}
-
-
-void
-gfc_resolve_ierrno (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("ierrno_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_ieor (gfc_expr *f, gfc_expr *i, gfc_expr *j)
-{
- /* If the kind of i and j are different, then g77 cross-promoted the
- kinds to the largest value. The Fortran 95 standard requires the
- kinds to match. */
- if (i->ts.kind != j->ts.kind)
- {
- if (i->ts.kind == gfc_kind_max (i, j))
- gfc_convert_type (j, &i->ts, 2);
- else
- gfc_convert_type (i, &j->ts, 2);
- }
-
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__ieor_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_ior (gfc_expr *f, gfc_expr *i, gfc_expr *j)
-{
- /* If the kind of i and j are different, then g77 cross-promoted the
- kinds to the largest value. The Fortran 95 standard requires the
- kinds to match. */
- if (i->ts.kind != j->ts.kind)
- {
- if (i->ts.kind == gfc_kind_max (i, j))
- gfc_convert_type (j, &i->ts, 2);
- else
- gfc_convert_type (i, &j->ts, 2);
- }
-
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__ior_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_index_func (gfc_expr *f, gfc_expr *str,
- gfc_expr *sub_str ATTRIBUTE_UNUSED, gfc_expr *back,
- gfc_expr *kind)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
-
- if (back && back->ts.kind != gfc_default_integer_kind)
- {
- ts.type = BT_LOGICAL;
- ts.kind = gfc_default_integer_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (back, &ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__index_%d_i%d", str->ts.kind, f->ts.kind);
-}
-
-
-void
-gfc_resolve_int (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = (kind == NULL)
- ? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
- f->value.function.name
- = gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_int2 (gfc_expr *f, gfc_expr *a)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 2;
- f->value.function.name
- = gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_int8 (gfc_expr *f, gfc_expr *a)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 8;
- f->value.function.name
- = gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_long (gfc_expr *f, gfc_expr *a)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name
- = gfc_get_string ("__int_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_iparity (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *mask)
-{
- resolve_transformational ("iparity", f, array, dim, mask);
-}
-
-
-void
-gfc_resolve_isatty (gfc_expr *f, gfc_expr *u)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_LOGICAL;
- f->ts.kind = gfc_default_integer_kind;
- if (u->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (u, &ts, 2);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("isatty_l%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_is_contiguous (gfc_expr *f, gfc_expr *array ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_LOGICAL;
- f->ts.kind = gfc_default_logical_kind;
- f->value.function.name = gfc_get_string ("__is_contiguous");
-}
-
-
-void
-gfc_resolve_ishft (gfc_expr *f, gfc_expr *i, gfc_expr *shift)
-{
- f->ts = i->ts;
- f->value.function.name
- = gfc_get_string ("__ishft_%d_%d", i->ts.kind, shift->ts.kind);
-}
-
-
-void
-gfc_resolve_rshift (gfc_expr *f, gfc_expr *i, gfc_expr *shift)
-{
- f->ts = i->ts;
- f->value.function.name
- = gfc_get_string ("__rshift_%d_%d", i->ts.kind, shift->ts.kind);
-}
-
-
-void
-gfc_resolve_lshift (gfc_expr *f, gfc_expr *i, gfc_expr *shift)
-{
- f->ts = i->ts;
- f->value.function.name
- = gfc_get_string ("__lshift_%d_%d", i->ts.kind, shift->ts.kind);
-}
-
-
-void
-gfc_resolve_ishftc (gfc_expr *f, gfc_expr *i, gfc_expr *shift, gfc_expr *size)
-{
- int s_kind;
-
- s_kind = (size == NULL) ? gfc_default_integer_kind : size->ts.kind;
-
- f->ts = i->ts;
- f->value.function.name
- = gfc_get_string ("__ishftc_%d_%d_%d", i->ts.kind, shift->ts.kind, s_kind);
-}
-
-
-void
-gfc_resolve_lbound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind)
-{
- resolve_bound (f, array, dim, kind, "__lbound", false);
-}
-
-
-void
-gfc_resolve_lcobound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind)
-{
- resolve_bound (f, array, dim, kind, "__lcobound", true);
-}
-
-
-void
-gfc_resolve_len (gfc_expr *f, gfc_expr *string, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name
- = gfc_get_string ("__len_%d_i%d", string->ts.kind,
- gfc_default_integer_kind);
-}
-
-
-void
-gfc_resolve_len_trim (gfc_expr *f, gfc_expr *string, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__len_trim%d", string->ts.kind);
-}
-
-
-void
-gfc_resolve_lgamma (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__lgamma_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_link (gfc_expr *f, gfc_expr *p1 ATTRIBUTE_UNUSED,
- gfc_expr *p2 ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("link_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_loc (gfc_expr *f, gfc_expr *x)
-{
- f->ts.type= BT_INTEGER;
- f->ts.kind = gfc_index_integer_kind;
- f->value.function.name = gfc_get_string ("__loc_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_log (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__log_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_log10 (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__log10_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_logical (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- f->ts.type = BT_LOGICAL;
- f->ts.kind = (kind == NULL)
- ? gfc_default_logical_kind : mpz_get_si (kind->value.integer);
- f->rank = a->rank;
-
- f->value.function.name
- = gfc_get_string ("__logical_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_matmul (gfc_expr *f, gfc_expr *a, gfc_expr *b)
-{
- gfc_expr temp;
-
- if (a->ts.type == BT_LOGICAL && b->ts.type == BT_LOGICAL)
- {
- f->ts.type = BT_LOGICAL;
- f->ts.kind = gfc_default_logical_kind;
- }
- else
- {
- temp.expr_type = EXPR_OP;
- gfc_clear_ts (&temp.ts);
- temp.value.op.op = INTRINSIC_NONE;
- temp.value.op.op1 = a;
- temp.value.op.op2 = b;
- gfc_type_convert_binary (&temp, 1);
- f->ts = temp.ts;
- }
-
- f->rank = (a->rank == 2 && b->rank == 2) ? 2 : 1;
-
- if (a->rank == 2 && b->rank == 2)
- {
- if (a->shape && b->shape)
- {
- f->shape = gfc_get_shape (f->rank);
- mpz_init_set (f->shape[0], a->shape[0]);
- mpz_init_set (f->shape[1], b->shape[1]);
- }
- }
- else if (a->rank == 1)
- {
- if (b->shape)
- {
- f->shape = gfc_get_shape (f->rank);
- mpz_init_set (f->shape[0], b->shape[1]);
- }
- }
- else
- {
- /* b->rank == 1 and a->rank == 2 here, all other cases have
- been caught in check.c. */
- if (a->shape)
- {
- f->shape = gfc_get_shape (f->rank);
- mpz_init_set (f->shape[0], a->shape[0]);
- }
- }
-
- f->value.function.name
- = gfc_get_string (PREFIX ("matmul_%c%d"), gfc_type_letter (f->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-static void
-gfc_resolve_minmax (const char *name, gfc_expr *f, gfc_actual_arglist *args)
-{
- gfc_actual_arglist *a;
-
- f->ts.type = args->expr->ts.type;
- f->ts.kind = args->expr->ts.kind;
- /* Find the largest type kind. */
- for (a = args->next; a; a = a->next)
- {
- if (a->expr->ts.kind > f->ts.kind)
- f->ts.kind = a->expr->ts.kind;
- }
-
- /* Convert all parameters to the required kind. */
- for (a = args; a; a = a->next)
- {
- if (a->expr->ts.kind != f->ts.kind)
- gfc_convert_type (a->expr, &f->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string (name, gfc_type_letter (f->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_max (gfc_expr *f, gfc_actual_arglist *args)
-{
- gfc_resolve_minmax ("__max_%c%d", f, args);
-}
-
-/* The smallest kind for which a minloc and maxloc implementation exists. */
-
-#define MINMAXLOC_MIN_KIND 4
-
-void
-gfc_resolve_maxloc (gfc_expr *f, gfc_expr *array, gfc_expr *dim,
- gfc_expr *mask, gfc_expr *kind, gfc_expr *back)
-{
- const char *name;
- int i, j, idim;
- int fkind;
- int d_num;
-
- f->ts.type = BT_INTEGER;
-
- /* The library versions only exist for kinds 4, 8 and 16. For smaller kinds,
- we do a type conversion further down. */
- if (kind)
- fkind = mpz_get_si (kind->value.integer);
- else
- fkind = gfc_default_integer_kind;
-
- if (fkind < MINMAXLOC_MIN_KIND)
- f->ts.kind = MINMAXLOC_MIN_KIND;
- else
- f->ts.kind = fkind;
-
- if (dim == NULL)
- {
- f->rank = 1;
- f->shape = gfc_get_shape (1);
- mpz_init_set_si (f->shape[0], array->rank);
- }
- else
- {
- f->rank = array->rank - 1;
- gfc_resolve_dim_arg (dim);
- if (array->shape && dim->expr_type == EXPR_CONSTANT)
- {
- idim = (int) mpz_get_si (dim->value.integer);
- f->shape = gfc_get_shape (f->rank);
- for (i = 0, j = 0; i < f->rank; i++, j++)
- {
- if (i == (idim - 1))
- j++;
- mpz_init_set (f->shape[i], array->shape[j]);
- }
- }
- }
-
- if (mask)
- {
- if (mask->rank == 0)
- name = "smaxloc";
- else
- name = "mmaxloc";
-
- resolve_mask_arg (mask);
- }
- else
- name = "maxloc";
-
- if (dim)
- {
- if (array->ts.type != BT_CHARACTER || f->rank != 0)
- d_num = 1;
- else
- d_num = 2;
- }
- else
- d_num = 0;
-
- f->value.function.name
- = gfc_get_string (PREFIX ("%s%d_%d_%c%d"), name, d_num, f->ts.kind,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
-
- if (kind)
- fkind = mpz_get_si (kind->value.integer);
- else
- fkind = gfc_default_integer_kind;
-
- if (fkind != f->ts.kind)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- ts.type = BT_INTEGER;
- ts.kind = fkind;
- gfc_convert_type_warn (f, &ts, 2, 0);
- }
-
- if (back->ts.kind != gfc_logical_4_kind)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
- ts.type = BT_LOGICAL;
- ts.kind = gfc_logical_4_kind;
- gfc_convert_type_warn (back, &ts, 2, 0);
- }
-}
-
-
-void
-gfc_resolve_findloc (gfc_expr *f, gfc_expr *array, gfc_expr *value,
- gfc_expr *dim, gfc_expr *mask, gfc_expr *kind,
- gfc_expr *back)
-{
- const char *name;
- int i, j, idim;
- int fkind;
- int d_num;
-
- /* See at the end of the function for why this is necessary. */
-
- if (f->do_not_resolve_again)
- return;
-
- f->ts.type = BT_INTEGER;
-
- /* We have a single library version, which uses index_type. */
-
- if (kind)
- fkind = mpz_get_si (kind->value.integer);
- else
- fkind = gfc_default_integer_kind;
-
- f->ts.kind = gfc_index_integer_kind;
-
- /* Convert value. If array is not LOGICAL and value is, we already
- issued an error earlier. */
-
- if ((array->ts.type != value->ts.type && value->ts.type != BT_LOGICAL)
- || array->ts.kind != value->ts.kind)
- gfc_convert_type_warn (value, &array->ts, 2, 0);
-
- if (dim == NULL)
- {
- f->rank = 1;
- f->shape = gfc_get_shape (1);
- mpz_init_set_si (f->shape[0], array->rank);
- }
- else
- {
- f->rank = array->rank - 1;
- gfc_resolve_dim_arg (dim);
- if (array->shape && dim->expr_type == EXPR_CONSTANT)
- {
- idim = (int) mpz_get_si (dim->value.integer);
- f->shape = gfc_get_shape (f->rank);
- for (i = 0, j = 0; i < f->rank; i++, j++)
- {
- if (i == (idim - 1))
- j++;
- mpz_init_set (f->shape[i], array->shape[j]);
- }
- }
- }
-
- if (mask)
- {
- if (mask->rank == 0)
- name = "sfindloc";
- else
- name = "mfindloc";
-
- resolve_mask_arg (mask);
- }
- else
- name = "findloc";
-
- if (dim)
- {
- if (f->rank > 0)
- d_num = 1;
- else
- d_num = 2;
- }
- else
- d_num = 0;
-
- if (back->ts.kind != gfc_logical_4_kind)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
- ts.type = BT_LOGICAL;
- ts.kind = gfc_logical_4_kind;
- gfc_convert_type_warn (back, &ts, 2, 0);
- }
-
- f->value.function.name
- = gfc_get_string (PREFIX ("%s%d_%c%d"), name, d_num,
- gfc_type_letter (array->ts.type, true),
- gfc_type_abi_kind (&array->ts));
-
- /* We only have a single library function, so we need to convert
- here. If the function is resolved from within a convert
- function generated on a previous round of resolution, endless
- recursion could occur. Guard against that here. */
-
- if (f->ts.kind != fkind)
- {
- f->do_not_resolve_again = 1;
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- ts.type = BT_INTEGER;
- ts.kind = fkind;
- gfc_convert_type_warn (f, &ts, 2, 0);
- }
-
-}
-
-void
-gfc_resolve_maxval (gfc_expr *f, gfc_expr *array, gfc_expr *dim,
- gfc_expr *mask)
-{
- const char *name;
- int i, j, idim;
-
- f->ts = array->ts;
-
- if (dim != NULL)
- {
- f->rank = array->rank - 1;
- gfc_resolve_dim_arg (dim);
-
- if (f->rank && array->shape && dim->expr_type == EXPR_CONSTANT)
- {
- idim = (int) mpz_get_si (dim->value.integer);
- f->shape = gfc_get_shape (f->rank);
- for (i = 0, j = 0; i < f->rank; i++, j++)
- {
- if (i == (idim - 1))
- j++;
- mpz_init_set (f->shape[i], array->shape[j]);
- }
- }
- }
-
- if (mask)
- {
- if (mask->rank == 0)
- name = "smaxval";
- else
- name = "mmaxval";
-
- resolve_mask_arg (mask);
- }
- else
- name = "maxval";
-
- if (array->ts.type != BT_CHARACTER)
- f->value.function.name
- = gfc_get_string (PREFIX ("%s_%c%d"), name,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("%s%d_%c%d"), name, f->rank != 0,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
-}
-
-
-void
-gfc_resolve_mclock (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = PREFIX ("mclock");
-}
-
-
-void
-gfc_resolve_mclock8 (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 8;
- f->value.function.name = PREFIX ("mclock8");
-}
-
-
-void
-gfc_resolve_mask (gfc_expr *f, gfc_expr *i ATTRIBUTE_UNUSED,
- gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = kind ? mpz_get_si (kind->value.integer)
- : gfc_default_integer_kind;
-
- if (f->value.function.isym->id == GFC_ISYM_MASKL)
- f->value.function.name = gfc_get_string ("__maskl_i%d", f->ts.kind);
- else
- f->value.function.name = gfc_get_string ("__maskr_i%d", f->ts.kind);
-}
-
-
-void
-gfc_resolve_merge (gfc_expr *f, gfc_expr *tsource,
- gfc_expr *fsource ATTRIBUTE_UNUSED,
- gfc_expr *mask ATTRIBUTE_UNUSED)
-{
- if (tsource->ts.type == BT_CHARACTER && tsource->ref)
- gfc_resolve_substring_charlen (tsource);
-
- if (fsource->ts.type == BT_CHARACTER && fsource->ref)
- gfc_resolve_substring_charlen (fsource);
-
- if (tsource->ts.type == BT_CHARACTER)
- check_charlen_present (tsource);
-
- f->ts = tsource->ts;
- f->value.function.name
- = gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type),
- gfc_type_abi_kind (&tsource->ts));
-}
-
-
-void
-gfc_resolve_merge_bits (gfc_expr *f, gfc_expr *i,
- gfc_expr *j ATTRIBUTE_UNUSED,
- gfc_expr *mask ATTRIBUTE_UNUSED)
-{
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__merge_bits_i%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_min (gfc_expr *f, gfc_actual_arglist *args)
-{
- gfc_resolve_minmax ("__min_%c%d", f, args);
-}
-
-
-void
-gfc_resolve_minloc (gfc_expr *f, gfc_expr *array, gfc_expr *dim,
- gfc_expr *mask, gfc_expr *kind, gfc_expr *back)
-{
- const char *name;
- int i, j, idim;
- int fkind;
- int d_num;
-
- f->ts.type = BT_INTEGER;
-
- /* The library versions only exist for kinds 4, 8 and 16. For smaller kinds,
- we do a type conversion further down. */
- if (kind)
- fkind = mpz_get_si (kind->value.integer);
- else
- fkind = gfc_default_integer_kind;
-
- if (fkind < MINMAXLOC_MIN_KIND)
- f->ts.kind = MINMAXLOC_MIN_KIND;
- else
- f->ts.kind = fkind;
-
- if (dim == NULL)
- {
- f->rank = 1;
- f->shape = gfc_get_shape (1);
- mpz_init_set_si (f->shape[0], array->rank);
- }
- else
- {
- f->rank = array->rank - 1;
- gfc_resolve_dim_arg (dim);
- if (array->shape && dim->expr_type == EXPR_CONSTANT)
- {
- idim = (int) mpz_get_si (dim->value.integer);
- f->shape = gfc_get_shape (f->rank);
- for (i = 0, j = 0; i < f->rank; i++, j++)
- {
- if (i == (idim - 1))
- j++;
- mpz_init_set (f->shape[i], array->shape[j]);
- }
- }
- }
-
- if (mask)
- {
- if (mask->rank == 0)
- name = "sminloc";
- else
- name = "mminloc";
-
- resolve_mask_arg (mask);
- }
- else
- name = "minloc";
-
- if (dim)
- {
- if (array->ts.type != BT_CHARACTER || f->rank != 0)
- d_num = 1;
- else
- d_num = 2;
- }
- else
- d_num = 0;
-
- f->value.function.name
- = gfc_get_string (PREFIX ("%s%d_%d_%c%d"), name, d_num, f->ts.kind,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
-
- if (fkind != f->ts.kind)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- ts.type = BT_INTEGER;
- ts.kind = fkind;
- gfc_convert_type_warn (f, &ts, 2, 0);
- }
-
- if (back->ts.kind != gfc_logical_4_kind)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
- ts.type = BT_LOGICAL;
- ts.kind = gfc_logical_4_kind;
- gfc_convert_type_warn (back, &ts, 2, 0);
- }
-}
-
-
-void
-gfc_resolve_minval (gfc_expr *f, gfc_expr *array, gfc_expr *dim,
- gfc_expr *mask)
-{
- const char *name;
- int i, j, idim;
-
- f->ts = array->ts;
-
- if (dim != NULL)
- {
- f->rank = array->rank - 1;
- gfc_resolve_dim_arg (dim);
-
- if (f->rank && array->shape && dim->expr_type == EXPR_CONSTANT)
- {
- idim = (int) mpz_get_si (dim->value.integer);
- f->shape = gfc_get_shape (f->rank);
- for (i = 0, j = 0; i < f->rank; i++, j++)
- {
- if (i == (idim - 1))
- j++;
- mpz_init_set (f->shape[i], array->shape[j]);
- }
- }
- }
-
- if (mask)
- {
- if (mask->rank == 0)
- name = "sminval";
- else
- name = "mminval";
-
- resolve_mask_arg (mask);
- }
- else
- name = "minval";
-
- if (array->ts.type != BT_CHARACTER)
- f->value.function.name
- = gfc_get_string (PREFIX ("%s_%c%d"), name,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("%s%d_%c%d"), name, f->rank != 0,
- gfc_type_letter (array->ts.type),
- gfc_type_abi_kind (&array->ts));
-}
-
-
-void
-gfc_resolve_mod (gfc_expr *f, gfc_expr *a, gfc_expr *p)
-{
- f->ts.type = a->ts.type;
- if (p != NULL)
- f->ts.kind = gfc_kind_max (a,p);
- else
- f->ts.kind = a->ts.kind;
-
- if (p != NULL && a->ts.kind != p->ts.kind)
- {
- if (a->ts.kind == gfc_kind_max (a,p))
- gfc_convert_type (p, &a->ts, 2);
- else
- gfc_convert_type (a, &p->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__mod_%c%d", gfc_type_letter (f->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_modulo (gfc_expr *f, gfc_expr *a, gfc_expr *p)
-{
- f->ts.type = a->ts.type;
- if (p != NULL)
- f->ts.kind = gfc_kind_max (a,p);
- else
- f->ts.kind = a->ts.kind;
-
- if (p != NULL && a->ts.kind != p->ts.kind)
- {
- if (a->ts.kind == gfc_kind_max (a,p))
- gfc_convert_type (p, &a->ts, 2);
- else
- gfc_convert_type (a, &p->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__modulo_%c%d", gfc_type_letter (f->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-void
-gfc_resolve_nearest (gfc_expr *f, gfc_expr *a, gfc_expr *p)
-{
- if (p->ts.kind != a->ts.kind)
- gfc_convert_type (p, &a->ts, 2);
-
- f->ts = a->ts;
- f->value.function.name
- = gfc_get_string ("__nearest_%c%d", gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-void
-gfc_resolve_nint (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = (kind == NULL)
- ? gfc_default_integer_kind : mpz_get_si (kind->value.integer);
- f->value.function.name
- = gfc_get_string ("__nint_%d_%d", f->ts.kind, a->ts.kind);
-}
-
-
-void
-gfc_resolve_norm2 (gfc_expr *f, gfc_expr *array, gfc_expr *dim)
-{
- resolve_transformational ("norm2", f, array, dim, NULL);
-}
-
-
-void
-gfc_resolve_not (gfc_expr *f, gfc_expr *i)
-{
- f->ts = i->ts;
- f->value.function.name = gfc_get_string ("__not_%d", i->ts.kind);
-}
-
-
-void
-gfc_resolve_or (gfc_expr *f, gfc_expr *i, gfc_expr *j)
-{
- f->ts.type = i->ts.type;
- f->ts.kind = gfc_kind_max (i, j);
-
- if (i->ts.kind != j->ts.kind)
- {
- if (i->ts.kind == gfc_kind_max (i, j))
- gfc_convert_type (j, &i->ts, 2);
- else
- gfc_convert_type (i, &j->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__or_%c%d", gfc_type_letter (i->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-void
-gfc_resolve_pack (gfc_expr *f, gfc_expr *array, gfc_expr *mask,
- gfc_expr *vector ATTRIBUTE_UNUSED)
-{
- if (array->ts.type == BT_CHARACTER && array->ref)
- gfc_resolve_substring_charlen (array);
-
- f->ts = array->ts;
- f->rank = 1;
-
- resolve_mask_arg (mask);
-
- if (mask->rank != 0)
- {
- if (array->ts.type == BT_CHARACTER)
- f->value.function.name
- = array->ts.kind == 1 ? PREFIX ("pack_char")
- : gfc_get_string
- (PREFIX ("pack_char%d"),
- array->ts.kind);
- else
- f->value.function.name = PREFIX ("pack");
- }
- else
- {
- if (array->ts.type == BT_CHARACTER)
- f->value.function.name
- = array->ts.kind == 1 ? PREFIX ("pack_s_char")
- : gfc_get_string
- (PREFIX ("pack_s_char%d"),
- array->ts.kind);
- else
- f->value.function.name = PREFIX ("pack_s");
- }
-}
-
-
-void
-gfc_resolve_parity (gfc_expr *f, gfc_expr *array, gfc_expr *dim)
-{
- resolve_transformational ("parity", f, array, dim, NULL);
-}
-
-
-void
-gfc_resolve_product (gfc_expr *f, gfc_expr *array, gfc_expr *dim,
- gfc_expr *mask)
-{
- resolve_transformational ("product", f, array, dim, mask);
-}
-
-
-void
-gfc_resolve_rank (gfc_expr *f, gfc_expr *array ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__rank");
-}
-
-
-void
-gfc_resolve_real (gfc_expr *f, gfc_expr *a, gfc_expr *kind)
-{
- f->ts.type = BT_REAL;
-
- if (kind != NULL)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = (a->ts.type == BT_COMPLEX)
- ? a->ts.kind : gfc_default_real_kind;
-
- f->value.function.name
- = gfc_get_string ("__real_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_realpart (gfc_expr *f, gfc_expr *a)
-{
- f->ts.type = BT_REAL;
- f->ts.kind = a->ts.kind;
- f->value.function.name
- = gfc_get_string ("__real_%d_%c%d", f->ts.kind,
- gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_rename (gfc_expr *f, gfc_expr *p1 ATTRIBUTE_UNUSED,
- gfc_expr *p2 ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("rename_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_repeat (gfc_expr *f, gfc_expr *string,
- gfc_expr *ncopies)
-{
- gfc_expr *tmp;
- f->ts.type = BT_CHARACTER;
- f->ts.kind = string->ts.kind;
- f->value.function.name = gfc_get_string ("__repeat_%d", string->ts.kind);
-
- /* If possible, generate a character length. */
- if (f->ts.u.cl == NULL)
- f->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL);
-
- tmp = NULL;
- if (string->expr_type == EXPR_CONSTANT)
- {
- tmp = gfc_get_int_expr (gfc_charlen_int_kind, NULL,
- string->value.character.length);
- }
- else if (string->ts.u.cl && string->ts.u.cl->length)
- {
- tmp = gfc_copy_expr (string->ts.u.cl->length);
- }
-
- if (tmp)
- f->ts.u.cl->length = gfc_multiply (tmp, gfc_copy_expr (ncopies));
-}
-
-
-void
-gfc_resolve_reshape (gfc_expr *f, gfc_expr *source, gfc_expr *shape,
- gfc_expr *pad ATTRIBUTE_UNUSED,
- gfc_expr *order ATTRIBUTE_UNUSED)
-{
- mpz_t rank;
- int kind;
- int i;
-
- if (source->ts.type == BT_CHARACTER && source->ref)
- gfc_resolve_substring_charlen (source);
-
- f->ts = source->ts;
-
- gfc_array_size (shape, &rank);
- f->rank = mpz_get_si (rank);
- mpz_clear (rank);
- switch (source->ts.type)
- {
- case BT_COMPLEX:
- case BT_REAL:
- case BT_INTEGER:
- case BT_LOGICAL:
- case BT_CHARACTER:
- kind = source->ts.kind;
- break;
-
- default:
- kind = 0;
- break;
- }
-
- switch (kind)
- {
- case 4:
- case 8:
- case 10:
- case 16:
- if (source->ts.type == BT_COMPLEX || source->ts.type == BT_REAL)
- f->value.function.name
- = gfc_get_string (PREFIX ("reshape_%c%d"),
- gfc_type_letter (source->ts.type),
- gfc_type_abi_kind (&source->ts));
- else if (source->ts.type == BT_CHARACTER)
- f->value.function.name = gfc_get_string (PREFIX ("reshape_char%d"),
- kind);
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("reshape_%d"), source->ts.kind);
- break;
-
- default:
- f->value.function.name = (source->ts.type == BT_CHARACTER
- ? PREFIX ("reshape_char") : PREFIX ("reshape"));
- break;
- }
-
- if (shape->expr_type == EXPR_ARRAY && gfc_is_constant_expr (shape))
- {
- gfc_constructor *c;
- f->shape = gfc_get_shape (f->rank);
- c = gfc_constructor_first (shape->value.constructor);
- for (i = 0; i < f->rank; i++)
- {
- mpz_init_set (f->shape[i], c->expr->value.integer);
- c = gfc_constructor_next (c);
- }
- }
-
- /* Force-convert both SHAPE and ORDER to index_kind so that we don't need
- so many runtime variations. */
- if (shape->ts.kind != gfc_index_integer_kind)
- {
- gfc_typespec ts = shape->ts;
- ts.kind = gfc_index_integer_kind;
- gfc_convert_type_warn (shape, &ts, 2, 0);
- }
- if (order && order->ts.kind != gfc_index_integer_kind)
- gfc_convert_type_warn (order, &shape->ts, 2, 0);
-}
-
-
-void
-gfc_resolve_rrspacing (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__rrspacing_%d", x->ts.kind);
-}
-
-void
-gfc_resolve_fe_runtime_error (gfc_code *c)
-{
- const char *name;
- gfc_actual_arglist *a;
-
- name = gfc_get_string (PREFIX ("runtime_error"));
-
- for (a = c->ext.actual->next; a; a = a->next)
- a->name = "%VAL";
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
- /* We set the backend_decl here because runtime_error is a
- variadic function and we would use the wrong calling
- convention otherwise. */
- c->resolved_sym->backend_decl = gfor_fndecl_runtime_error;
-}
-
-void
-gfc_resolve_scale (gfc_expr *f, gfc_expr *x, gfc_expr *i ATTRIBUTE_UNUSED)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__scale_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_scan (gfc_expr *f, gfc_expr *string,
- gfc_expr *set ATTRIBUTE_UNUSED,
- gfc_expr *back ATTRIBUTE_UNUSED, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__scan_%d", string->ts.kind);
-}
-
-
-void
-gfc_resolve_secnds (gfc_expr *t1, gfc_expr *t0)
-{
- t1->ts = t0->ts;
- t1->value.function.name = gfc_get_string (PREFIX ("secnds"));
-}
-
-
-void
-gfc_resolve_set_exponent (gfc_expr *f, gfc_expr *x,
- gfc_expr *i ATTRIBUTE_UNUSED)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__set_exponent_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_shape (gfc_expr *f, gfc_expr *array, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
-
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
-
- f->rank = 1;
- if (array->rank != -1)
- {
- f->shape = gfc_get_shape (1);
- mpz_init_set_ui (f->shape[0], array->rank);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("shape_%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_shift (gfc_expr *f, gfc_expr *i, gfc_expr *shift ATTRIBUTE_UNUSED)
-{
- f->ts = i->ts;
- if (f->value.function.isym->id == GFC_ISYM_SHIFTA)
- f->value.function.name = gfc_get_string ("shifta_i%d", f->ts.kind);
- else if (f->value.function.isym->id == GFC_ISYM_SHIFTL)
- f->value.function.name = gfc_get_string ("shiftl_i%d", f->ts.kind);
- else if (f->value.function.isym->id == GFC_ISYM_SHIFTR)
- f->value.function.name = gfc_get_string ("shiftr_i%d", f->ts.kind);
- else
- gcc_unreachable ();
-}
-
-
-void
-gfc_resolve_sign (gfc_expr *f, gfc_expr *a, gfc_expr *b ATTRIBUTE_UNUSED)
-{
- f->ts = a->ts;
- f->value.function.name
- = gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type),
- gfc_type_abi_kind (&a->ts));
-}
-
-
-void
-gfc_resolve_signal (gfc_expr *f, gfc_expr *number, gfc_expr *handler)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
-
- /* handler can be either BT_INTEGER or BT_PROCEDURE */
- if (handler->ts.type == BT_INTEGER)
- {
- if (handler->ts.kind != gfc_c_int_kind)
- gfc_convert_type (handler, &f->ts, 2);
- f->value.function.name = gfc_get_string (PREFIX ("signal_func_int"));
- }
- else
- f->value.function.name = gfc_get_string (PREFIX ("signal_func"));
-
- if (number->ts.kind != gfc_c_int_kind)
- gfc_convert_type (number, &f->ts, 2);
-}
-
-
-void
-gfc_resolve_sin (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__sin_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_sinh (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__sinh_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_size (gfc_expr *f, gfc_expr *array ATTRIBUTE_UNUSED,
- gfc_expr *dim ATTRIBUTE_UNUSED, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
-}
-
-
-void
-gfc_resolve_stride (gfc_expr *f, gfc_expr *array ATTRIBUTE_UNUSED,
- gfc_expr *dim ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_index_integer_kind;
-}
-
-
-void
-gfc_resolve_spacing (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name = gfc_get_string ("__spacing_%d", x->ts.kind);
-}
-
-
-void
-gfc_resolve_spread (gfc_expr *f, gfc_expr *source, gfc_expr *dim,
- gfc_expr *ncopies)
-{
- if (source->ts.type == BT_CHARACTER && source->ref)
- gfc_resolve_substring_charlen (source);
-
- if (source->ts.type == BT_CHARACTER)
- check_charlen_present (source);
-
- f->ts = source->ts;
- f->rank = source->rank + 1;
- if (source->rank == 0)
- {
- if (source->ts.type == BT_CHARACTER)
- f->value.function.name
- = source->ts.kind == 1 ? PREFIX ("spread_char_scalar")
- : gfc_get_string
- (PREFIX ("spread_char%d_scalar"),
- source->ts.kind);
- else
- f->value.function.name = PREFIX ("spread_scalar");
- }
- else
- {
- if (source->ts.type == BT_CHARACTER)
- f->value.function.name
- = source->ts.kind == 1 ? PREFIX ("spread_char")
- : gfc_get_string
- (PREFIX ("spread_char%d"),
- source->ts.kind);
- else
- f->value.function.name = PREFIX ("spread");
- }
-
- if (dim && gfc_is_constant_expr (dim)
- && ncopies && gfc_is_constant_expr (ncopies) && source->shape[0])
- {
- int i, idim;
- idim = mpz_get_ui (dim->value.integer);
- f->shape = gfc_get_shape (f->rank);
- for (i = 0; i < (idim - 1); i++)
- mpz_init_set (f->shape[i], source->shape[i]);
-
- mpz_init_set (f->shape[idim - 1], ncopies->value.integer);
-
- for (i = idim; i < f->rank ; i++)
- mpz_init_set (f->shape[i], source->shape[i-1]);
- }
-
-
- gfc_resolve_dim_arg (dim);
- gfc_resolve_index (ncopies, 1);
-}
-
-
-void
-gfc_resolve_sqrt (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__sqrt_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-/* Resolve the g77 compatibility function STAT AND FSTAT. */
-
-void
-gfc_resolve_stat (gfc_expr *f, gfc_expr *n ATTRIBUTE_UNUSED,
- gfc_expr *a ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("stat_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_lstat (gfc_expr *f, gfc_expr *n ATTRIBUTE_UNUSED,
- gfc_expr *a ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("lstat_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_fstat (gfc_expr *f, gfc_expr *n, gfc_expr *a ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- if (n->ts.kind != f->ts.kind)
- gfc_convert_type (n, &f->ts, 2);
-
- f->value.function.name = gfc_get_string (PREFIX ("fstat_i%d"), f->ts.kind);
-}
-
-
-void
-gfc_resolve_fgetc (gfc_expr *f, gfc_expr *u, gfc_expr *c ATTRIBUTE_UNUSED)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
- if (u->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (u, &ts, 2);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("fgetc"));
-}
-
-
-void
-gfc_resolve_fget (gfc_expr *f, gfc_expr *c ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
- f->value.function.name = gfc_get_string (PREFIX ("fget"));
-}
-
-
-void
-gfc_resolve_fputc (gfc_expr *f, gfc_expr *u, gfc_expr *c ATTRIBUTE_UNUSED)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
- if (u->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (u, &ts, 2);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("fputc"));
-}
-
-
-void
-gfc_resolve_fput (gfc_expr *f, gfc_expr *c ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_c_int_kind;
- f->value.function.name = gfc_get_string (PREFIX ("fput"));
-}
-
-
-void
-gfc_resolve_ftell (gfc_expr *f, gfc_expr *u)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_intio_kind;
- if (u->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (u, &ts, 2);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("ftell"));
-}
-
-
-void
-gfc_resolve_storage_size (gfc_expr *f, gfc_expr *a ATTRIBUTE_UNUSED,
- gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
-}
-
-
-void
-gfc_resolve_sum (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *mask)
-{
- resolve_transformational ("sum", f, array, dim, mask);
-}
-
-
-void
-gfc_resolve_symlnk (gfc_expr *f, gfc_expr *p1 ATTRIBUTE_UNUSED,
- gfc_expr *p2 ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string (PREFIX ("symlnk_i%d"), f->ts.kind);
-}
-
-
-/* Resolve the g77 compatibility function SYSTEM. */
-
-void
-gfc_resolve_system (gfc_expr *f, gfc_expr *n ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("system"));
-}
-
-
-void
-gfc_resolve_tan (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__tan_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_tanh (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string ("__tanh_%c%d", gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-/* Resolve failed_images (team, kind). */
-
-void
-gfc_resolve_failed_images (gfc_expr *f, gfc_expr *team ATTRIBUTE_UNUSED,
- gfc_expr *kind)
-{
- static char failed_images[] = "_gfortran_caf_failed_images";
- f->rank = 1;
- f->ts.type = BT_INTEGER;
- if (kind == NULL)
- f->ts.kind = gfc_default_integer_kind;
- else
- gfc_extract_int (kind, &f->ts.kind);
- f->value.function.name = failed_images;
-}
-
-
-/* Resolve image_status (image, team). */
-
-void
-gfc_resolve_image_status (gfc_expr *f, gfc_expr *image ATTRIBUTE_UNUSED,
- gfc_expr *team ATTRIBUTE_UNUSED)
-{
- static char image_status[] = "_gfortran_caf_image_status";
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = image_status;
-}
-
-
-/* Resolve get_team (). */
-
-void
-gfc_resolve_get_team (gfc_expr *f, gfc_expr *level ATTRIBUTE_UNUSED)
-{
- static char get_team[] = "_gfortran_caf_get_team";
- f->rank = 0;
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = get_team;
-}
-
-
-/* Resolve image_index (...). */
-
-void
-gfc_resolve_image_index (gfc_expr *f, gfc_expr *array ATTRIBUTE_UNUSED,
- gfc_expr *sub ATTRIBUTE_UNUSED)
-{
- static char image_index[] = "__image_index";
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = image_index;
-}
-
-
-/* Resolve stopped_images (team, kind). */
-
-void
-gfc_resolve_stopped_images (gfc_expr *f, gfc_expr *team ATTRIBUTE_UNUSED,
- gfc_expr *kind)
-{
- static char stopped_images[] = "_gfortran_caf_stopped_images";
- f->rank = 1;
- f->ts.type = BT_INTEGER;
- if (kind == NULL)
- f->ts.kind = gfc_default_integer_kind;
- else
- gfc_extract_int (kind, &f->ts.kind);
- f->value.function.name = stopped_images;
-}
-
-
-/* Resolve team_number (team). */
-
-void
-gfc_resolve_team_number (gfc_expr *f, gfc_expr *team ATTRIBUTE_UNUSED)
-{
- static char team_number[] = "_gfortran_caf_team_number";
- f->rank = 0;
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = team_number;
-}
-
-
-void
-gfc_resolve_this_image (gfc_expr *f, gfc_expr *array, gfc_expr *dim,
- gfc_expr *distance ATTRIBUTE_UNUSED)
-{
- static char this_image[] = "__this_image";
- if (array && gfc_is_coarray (array))
- resolve_bound (f, array, dim, NULL, "__this_image", true);
- else
- {
- f->ts.type = BT_INTEGER;
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = this_image;
- }
-}
-
-
-void
-gfc_resolve_time (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("time_func"));
-}
-
-
-void
-gfc_resolve_time8 (gfc_expr *f)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 8;
- f->value.function.name = gfc_get_string (PREFIX ("time8_func"));
-}
-
-
-void
-gfc_resolve_transfer (gfc_expr *f, gfc_expr *source ATTRIBUTE_UNUSED,
- gfc_expr *mold, gfc_expr *size)
-{
- /* TODO: Make this do something meaningful. */
- static char transfer0[] = "__transfer0", transfer1[] = "__transfer1";
-
- if (mold->ts.type == BT_CHARACTER
- && !mold->ts.u.cl->length
- && gfc_is_constant_expr (mold))
- {
- int len;
- if (mold->expr_type == EXPR_CONSTANT)
- {
- len = mold->value.character.length;
- mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind,
- NULL, len);
- }
- else
- {
- gfc_constructor *c = gfc_constructor_first (mold->value.constructor);
- len = c->expr->value.character.length;
- mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind,
- NULL, len);
- }
- }
-
- f->ts = mold->ts;
-
- if (size == NULL && mold->rank == 0)
- {
- f->rank = 0;
- f->value.function.name = transfer0;
- }
- else
- {
- f->rank = 1;
- f->value.function.name = transfer1;
- if (size && gfc_is_constant_expr (size))
- {
- f->shape = gfc_get_shape (1);
- mpz_init_set (f->shape[0], size->value.integer);
- }
- }
-}
-
-
-void
-gfc_resolve_transpose (gfc_expr *f, gfc_expr *matrix)
-{
-
- if (matrix->ts.type == BT_CHARACTER && matrix->ref)
- gfc_resolve_substring_charlen (matrix);
-
- f->ts = matrix->ts;
- f->rank = 2;
- if (matrix->shape)
- {
- f->shape = gfc_get_shape (2);
- mpz_init_set (f->shape[0], matrix->shape[1]);
- mpz_init_set (f->shape[1], matrix->shape[0]);
- }
-
- switch (matrix->ts.kind)
- {
- case 4:
- case 8:
- case 10:
- case 16:
- switch (matrix->ts.type)
- {
- case BT_REAL:
- case BT_COMPLEX:
- f->value.function.name
- = gfc_get_string (PREFIX ("transpose_%c%d"),
- gfc_type_letter (matrix->ts.type),
- gfc_type_abi_kind (&matrix->ts));
- break;
-
- case BT_INTEGER:
- case BT_LOGICAL:
- /* Use the integer routines for real and logical cases. This
- assumes they all have the same alignment requirements. */
- f->value.function.name
- = gfc_get_string (PREFIX ("transpose_i%d"), matrix->ts.kind);
- break;
-
- default:
- if (matrix->ts.type == BT_CHARACTER && matrix->ts.kind == 4)
- f->value.function.name = PREFIX ("transpose_char4");
- else
- f->value.function.name = PREFIX ("transpose");
- break;
- }
- break;
-
- default:
- f->value.function.name = (matrix->ts.type == BT_CHARACTER
- ? PREFIX ("transpose_char")
- : PREFIX ("transpose"));
- break;
- }
-}
-
-
-void
-gfc_resolve_trim (gfc_expr *f, gfc_expr *string)
-{
- f->ts.type = BT_CHARACTER;
- f->ts.kind = string->ts.kind;
- f->value.function.name = gfc_get_string ("__trim_%d", string->ts.kind);
-}
-
-
-/* Resolve the degree trignometric functions. This amounts to setting
- the function return type-spec from its argument and building a
- library function names of the form _gfortran_sind_r4. */
-
-void
-gfc_resolve_trigd (gfc_expr *f, gfc_expr *x)
-{
- f->ts = x->ts;
- f->value.function.name
- = gfc_get_string (PREFIX ("%s_%c%d"), f->value.function.isym->name,
- gfc_type_letter (x->ts.type),
- gfc_type_abi_kind (&x->ts));
-}
-
-
-void
-gfc_resolve_trigd2 (gfc_expr *f, gfc_expr *y, gfc_expr *x)
-{
- f->ts = y->ts;
- f->value.function.name
- = gfc_get_string (PREFIX ("%s_%d"), f->value.function.isym->name,
- x->ts.kind);
-}
-
-
-void
-gfc_resolve_ubound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind)
-{
- resolve_bound (f, array, dim, kind, "__ubound", false);
-}
-
-
-void
-gfc_resolve_ucobound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind)
-{
- resolve_bound (f, array, dim, kind, "__ucobound", true);
-}
-
-
-/* Resolve the g77 compatibility function UMASK. */
-
-void
-gfc_resolve_umask (gfc_expr *f, gfc_expr *n)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = n->ts.kind;
- f->value.function.name = gfc_get_string (PREFIX ("umask_i%d"), n->ts.kind);
-}
-
-
-/* Resolve the g77 compatibility function UNLINK. */
-
-void
-gfc_resolve_unlink (gfc_expr *f, gfc_expr *n ATTRIBUTE_UNUSED)
-{
- f->ts.type = BT_INTEGER;
- f->ts.kind = 4;
- f->value.function.name = gfc_get_string (PREFIX ("unlink"));
-}
-
-
-void
-gfc_resolve_ttynam (gfc_expr *f, gfc_expr *unit)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- f->ts.type = BT_CHARACTER;
- f->ts.kind = gfc_default_character_kind;
-
- if (unit->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (unit, &ts, 2);
- }
-
- f->value.function.name = gfc_get_string (PREFIX ("ttynam"));
-}
-
-
-void
-gfc_resolve_unpack (gfc_expr *f, gfc_expr *vector, gfc_expr *mask,
- gfc_expr *field ATTRIBUTE_UNUSED)
-{
- if (vector->ts.type == BT_CHARACTER && vector->ref)
- gfc_resolve_substring_charlen (vector);
-
- f->ts = vector->ts;
- f->rank = mask->rank;
- resolve_mask_arg (mask);
-
- if (vector->ts.type == BT_CHARACTER)
- {
- if (vector->ts.kind == 1)
- f->value.function.name
- = gfc_get_string (PREFIX ("unpack%d_char"), field->rank > 0 ? 1 : 0);
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("unpack%d_char%d"),
- field->rank > 0 ? 1 : 0, vector->ts.kind);
- }
- else
- f->value.function.name
- = gfc_get_string (PREFIX ("unpack%d"), field->rank > 0 ? 1 : 0);
-}
-
-
-void
-gfc_resolve_verify (gfc_expr *f, gfc_expr *string,
- gfc_expr *set ATTRIBUTE_UNUSED,
- gfc_expr *back ATTRIBUTE_UNUSED, gfc_expr *kind)
-{
- f->ts.type = BT_INTEGER;
- if (kind)
- f->ts.kind = mpz_get_si (kind->value.integer);
- else
- f->ts.kind = gfc_default_integer_kind;
- f->value.function.name = gfc_get_string ("__verify_%d", string->ts.kind);
-}
-
-
-void
-gfc_resolve_xor (gfc_expr *f, gfc_expr *i, gfc_expr *j)
-{
- f->ts.type = i->ts.type;
- f->ts.kind = gfc_kind_max (i, j);
-
- if (i->ts.kind != j->ts.kind)
- {
- if (i->ts.kind == gfc_kind_max (i, j))
- gfc_convert_type (j, &i->ts, 2);
- else
- gfc_convert_type (i, &j->ts, 2);
- }
-
- f->value.function.name
- = gfc_get_string ("__xor_%c%d", gfc_type_letter (i->ts.type),
- gfc_type_abi_kind (&f->ts));
-}
-
-
-/* Intrinsic subroutine resolution. */
-
-void
-gfc_resolve_alarm_sub (gfc_code *c)
-{
- const char *name;
- gfc_expr *seconds, *handler;
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- seconds = c->ext.actual->expr;
- handler = c->ext.actual->next->expr;
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
-
- /* handler can be either BT_INTEGER or BT_PROCEDURE.
- In all cases, the status argument is of default integer kind
- (enforced in check.c) so that the function suffix is fixed. */
- if (handler->ts.type == BT_INTEGER)
- {
- if (handler->ts.kind != gfc_c_int_kind)
- gfc_convert_type (handler, &ts, 2);
- name = gfc_get_string (PREFIX ("alarm_sub_int_i%d"),
- gfc_default_integer_kind);
- }
- else
- name = gfc_get_string (PREFIX ("alarm_sub_i%d"),
- gfc_default_integer_kind);
-
- if (seconds->ts.kind != gfc_c_int_kind)
- gfc_convert_type (seconds, &ts, 2);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-void
-gfc_resolve_cpu_time (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("cpu_time_%d"), c->ext.actual->expr->ts.kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Create a formal arglist based on an actual one and set the INTENTs given. */
-
-static gfc_formal_arglist*
-create_formal_for_intents (gfc_actual_arglist* actual, const sym_intent* ints)
-{
- gfc_formal_arglist* head;
- gfc_formal_arglist* tail;
- int i;
-
- if (!actual)
- return NULL;
-
- head = tail = gfc_get_formal_arglist ();
- for (i = 0; actual; actual = actual->next, tail = tail->next, ++i)
- {
- gfc_symbol* sym;
-
- sym = gfc_new_symbol ("dummyarg", NULL);
- sym->ts = actual->expr->ts;
-
- sym->attr.intent = ints[i];
- tail->sym = sym;
-
- if (actual->next)
- tail->next = gfc_get_formal_arglist ();
- }
-
- return head;
-}
-
-
-void
-gfc_resolve_atomic_def (gfc_code *c)
-{
- const char *name = "atomic_define";
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_atomic_ref (gfc_code *c)
-{
- const char *name = "atomic_ref";
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-void
-gfc_resolve_event_query (gfc_code *c)
-{
- const char *name = "event_query";
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-void
-gfc_resolve_mvbits (gfc_code *c)
-{
- static const sym_intent INTENTS[] = {INTENT_IN, INTENT_IN, INTENT_IN,
- INTENT_INOUT, INTENT_IN};
- const char *name;
-
- /* TO and FROM are guaranteed to have the same kind parameter. */
- name = gfc_get_string (PREFIX ("mvbits_i%d"),
- c->ext.actual->expr->ts.kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
- /* Mark as elemental subroutine as this does not happen automatically. */
- c->resolved_sym->attr.elemental = 1;
-
- /* Create a dummy formal arglist so the INTENTs are known later for purpose
- of creating temporaries. */
- c->resolved_sym->formal = create_formal_for_intents (c->ext.actual, INTENTS);
-}
-
-
-/* Set up the call to RANDOM_INIT. */
-
-void
-gfc_resolve_random_init (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("random_init"));
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_random_number (gfc_code *c)
-{
- const char *name;
- int kind;
-
- kind = gfc_type_abi_kind (&c->ext.actual->expr->ts);
- if (c->ext.actual->expr->rank == 0)
- name = gfc_get_string (PREFIX ("random_r%d"), kind);
- else
- name = gfc_get_string (PREFIX ("arandom_r%d"), kind);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_random_seed (gfc_code *c)
-{
- const char *name;
-
- name = gfc_get_string (PREFIX ("random_seed_i%d"), gfc_default_integer_kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_rename_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- /* Find the type of status. If not present use default integer kind. */
- if (c->ext.actual->next->next->expr != NULL)
- kind = c->ext.actual->next->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("rename_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_link_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->next->expr != NULL)
- kind = c->ext.actual->next->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("link_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_symlnk_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->next->expr != NULL)
- kind = c->ext.actual->next->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("symlnk_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* G77 compatibility subroutines dtime() and etime(). */
-
-void
-gfc_resolve_dtime_sub (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("dtime_sub"));
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-void
-gfc_resolve_etime_sub (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("etime_sub"));
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* G77 compatibility subroutines itime(), idate(), ltime() and gmtime(). */
-
-void
-gfc_resolve_itime (gfc_code *c)
-{
- c->resolved_sym
- = gfc_get_intrinsic_sub_symbol (gfc_get_string (PREFIX ("itime_i%d"),
- gfc_default_integer_kind));
-}
-
-void
-gfc_resolve_idate (gfc_code *c)
-{
- c->resolved_sym
- = gfc_get_intrinsic_sub_symbol (gfc_get_string (PREFIX ("idate_i%d"),
- gfc_default_integer_kind));
-}
-
-void
-gfc_resolve_ltime (gfc_code *c)
-{
- c->resolved_sym
- = gfc_get_intrinsic_sub_symbol (gfc_get_string (PREFIX ("ltime_i%d"),
- gfc_default_integer_kind));
-}
-
-void
-gfc_resolve_gmtime (gfc_code *c)
-{
- c->resolved_sym
- = gfc_get_intrinsic_sub_symbol (gfc_get_string (PREFIX ("gmtime_i%d"),
- gfc_default_integer_kind));
-}
-
-
-/* G77 compatibility subroutine second(). */
-
-void
-gfc_resolve_second_sub (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("second_sub"));
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_sleep_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->expr != NULL)
- kind = c->ext.actual->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("sleep_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* G77 compatibility function srand(). */
-
-void
-gfc_resolve_srand (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("srand"));
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the getarg intrinsic subroutine. */
-
-void
-gfc_resolve_getarg (gfc_code *c)
-{
- const char *name;
-
- if (c->ext.actual->expr->ts.kind != gfc_default_integer_kind)
- {
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- ts.type = BT_INTEGER;
- ts.kind = gfc_default_integer_kind;
-
- gfc_convert_type (c->ext.actual->expr, &ts, 2);
- }
-
- name = gfc_get_string (PREFIX ("getarg_i%d"), gfc_default_integer_kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the getcwd intrinsic subroutine. */
-
-void
-gfc_resolve_getcwd_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->expr != NULL)
- kind = c->ext.actual->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("getcwd_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the get_command intrinsic subroutine. */
-
-void
-gfc_resolve_get_command (gfc_code *c)
-{
- const char *name;
- int kind;
- kind = gfc_default_integer_kind;
- name = gfc_get_string (PREFIX ("get_command_i%d"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the get_command_argument intrinsic subroutine. */
-
-void
-gfc_resolve_get_command_argument (gfc_code *c)
-{
- const char *name;
- int kind;
- kind = gfc_default_integer_kind;
- name = gfc_get_string (PREFIX ("get_command_argument_i%d"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the get_environment_variable intrinsic subroutine. */
-
-void
-gfc_resolve_get_environment_variable (gfc_code *code)
-{
- const char *name;
- int kind;
- kind = gfc_default_integer_kind;
- name = gfc_get_string (PREFIX ("get_environment_variable_i%d"), kind);
- code->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_signal_sub (gfc_code *c)
-{
- const char *name;
- gfc_expr *number, *handler, *status;
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- number = c->ext.actual->expr;
- handler = c->ext.actual->next->expr;
- status = c->ext.actual->next->next->expr;
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
-
- /* handler can be either BT_INTEGER or BT_PROCEDURE */
- if (handler->ts.type == BT_INTEGER)
- {
- if (handler->ts.kind != gfc_c_int_kind)
- gfc_convert_type (handler, &ts, 2);
- name = gfc_get_string (PREFIX ("signal_sub_int"));
- }
- else
- name = gfc_get_string (PREFIX ("signal_sub"));
-
- if (number->ts.kind != gfc_c_int_kind)
- gfc_convert_type (number, &ts, 2);
- if (status != NULL && status->ts.kind != gfc_c_int_kind)
- gfc_convert_type (status, &ts, 2);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the SYSTEM intrinsic subroutine. */
-
-void
-gfc_resolve_system_sub (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("system_sub"));
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Determine if the arguments to SYSTEM_CLOCK are INTEGER(4) or INTEGER(8) */
-
-void
-gfc_resolve_system_clock (gfc_code *c)
-{
- const char *name;
- int kind;
- gfc_expr *count = c->ext.actual->expr;
- gfc_expr *count_max = c->ext.actual->next->next->expr;
-
- /* The INTEGER(8) version has higher precision, it is used if both COUNT
- and COUNT_MAX can hold 64-bit values, or are absent. */
- if ((!count || count->ts.kind >= 8)
- && (!count_max || count_max->ts.kind >= 8))
- kind = 8;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("system_clock_%d"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the EXECUTE_COMMAND_LINE intrinsic subroutine. */
-void
-gfc_resolve_execute_command_line (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("execute_command_line_i%d"),
- gfc_default_integer_kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the EXIT intrinsic subroutine. */
-
-void
-gfc_resolve_exit (gfc_code *c)
-{
- const char *name;
- gfc_typespec ts;
- gfc_expr *n;
- gfc_clear_ts (&ts);
-
- /* The STATUS argument has to be of default kind. If it is not,
- we convert it. */
- ts.type = BT_INTEGER;
- ts.kind = gfc_default_integer_kind;
- n = c->ext.actual->expr;
- if (n != NULL && n->ts.kind != ts.kind)
- gfc_convert_type (n, &ts, 2);
-
- name = gfc_get_string (PREFIX ("exit_i%d"), ts.kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-/* Resolve the FLUSH intrinsic subroutine. */
-
-void
-gfc_resolve_flush (gfc_code *c)
-{
- const char *name;
- gfc_typespec ts;
- gfc_expr *n;
- gfc_clear_ts (&ts);
-
- ts.type = BT_INTEGER;
- ts.kind = gfc_default_integer_kind;
- n = c->ext.actual->expr;
- if (n != NULL && n->ts.kind != ts.kind)
- gfc_convert_type (n, &ts, 2);
-
- name = gfc_get_string (PREFIX ("flush_i%d"), ts.kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_ctime_sub (gfc_code *c)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- /* ctime TIME argument is a INTEGER(KIND=8), says the doc */
- if (c->ext.actual->expr->ts.kind != 8)
- {
- ts.type = BT_INTEGER;
- ts.kind = 8;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (c->ext.actual->expr, &ts, 2);
- }
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("ctime_sub"));
-}
-
-
-void
-gfc_resolve_fdate_sub (gfc_code *c)
-{
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("fdate_sub"));
-}
-
-
-void
-gfc_resolve_gerror (gfc_code *c)
-{
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("gerror"));
-}
-
-
-void
-gfc_resolve_getlog (gfc_code *c)
-{
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("getlog"));
-}
-
-
-void
-gfc_resolve_hostnm_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->expr != NULL)
- kind = c->ext.actual->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("hostnm_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_perror (gfc_code *c)
-{
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("perror_sub"));
-}
-
-/* Resolve the STAT and FSTAT intrinsic subroutines. */
-
-void
-gfc_resolve_stat_sub (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("stat_i%d_sub"), gfc_default_integer_kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_lstat_sub (gfc_code *c)
-{
- const char *name;
- name = gfc_get_string (PREFIX ("lstat_i%d_sub"), gfc_default_integer_kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_fstat_sub (gfc_code *c)
-{
- const char *name;
- gfc_expr *u;
- gfc_typespec *ts;
-
- u = c->ext.actual->expr;
- ts = &c->ext.actual->next->expr->ts;
- if (u->ts.kind != ts->kind)
- gfc_convert_type (u, ts, 2);
- name = gfc_get_string (PREFIX ("fstat_i%d_sub"), ts->kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_fgetc_sub (gfc_code *c)
-{
- const char *name;
- gfc_typespec ts;
- gfc_expr *u, *st;
- gfc_clear_ts (&ts);
-
- u = c->ext.actual->expr;
- st = c->ext.actual->next->next->expr;
-
- if (u->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (u, &ts, 2);
- }
-
- if (st != NULL)
- name = gfc_get_string (PREFIX ("fgetc_i%d_sub"), st->ts.kind);
- else
- name = gfc_get_string (PREFIX ("fgetc_i%d_sub"), gfc_default_integer_kind);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_fget_sub (gfc_code *c)
-{
- const char *name;
- gfc_expr *st;
-
- st = c->ext.actual->next->expr;
- if (st != NULL)
- name = gfc_get_string (PREFIX ("fget_i%d_sub"), st->ts.kind);
- else
- name = gfc_get_string (PREFIX ("fget_i%d_sub"), gfc_default_integer_kind);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_fputc_sub (gfc_code *c)
-{
- const char *name;
- gfc_typespec ts;
- gfc_expr *u, *st;
- gfc_clear_ts (&ts);
-
- u = c->ext.actual->expr;
- st = c->ext.actual->next->next->expr;
-
- if (u->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (u, &ts, 2);
- }
-
- if (st != NULL)
- name = gfc_get_string (PREFIX ("fputc_i%d_sub"), st->ts.kind);
- else
- name = gfc_get_string (PREFIX ("fputc_i%d_sub"), gfc_default_integer_kind);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_fput_sub (gfc_code *c)
-{
- const char *name;
- gfc_expr *st;
-
- st = c->ext.actual->next->expr;
- if (st != NULL)
- name = gfc_get_string (PREFIX ("fput_i%d_sub"), st->ts.kind);
- else
- name = gfc_get_string (PREFIX ("fput_i%d_sub"), gfc_default_integer_kind);
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_fseek_sub (gfc_code *c)
-{
- gfc_expr *unit;
- gfc_expr *offset;
- gfc_expr *whence;
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- unit = c->ext.actual->expr;
- offset = c->ext.actual->next->expr;
- whence = c->ext.actual->next->next->expr;
-
- if (unit->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (unit, &ts, 2);
- }
-
- if (offset->ts.kind != gfc_intio_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_intio_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (offset, &ts, 2);
- }
-
- if (whence->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (whence, &ts, 2);
- }
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("fseek_sub"));
-}
-
-void
-gfc_resolve_ftell_sub (gfc_code *c)
-{
- const char *name;
- gfc_expr *unit;
- gfc_expr *offset;
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- unit = c->ext.actual->expr;
- offset = c->ext.actual->next->expr;
-
- if (unit->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (unit, &ts, 2);
- }
-
- name = gfc_get_string (PREFIX ("ftell_i%d_sub"), offset->ts.kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-
-void
-gfc_resolve_ttynam_sub (gfc_code *c)
-{
- gfc_typespec ts;
- gfc_clear_ts (&ts);
-
- if (c->ext.actual->expr->ts.kind != gfc_c_int_kind)
- {
- ts.type = BT_INTEGER;
- ts.kind = gfc_c_int_kind;
- ts.u.derived = NULL;
- ts.u.cl = NULL;
- gfc_convert_type (c->ext.actual->expr, &ts, 2);
- }
-
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("ttynam_sub"));
-}
-
-
-/* Resolve the UMASK intrinsic subroutine. */
-
-void
-gfc_resolve_umask_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->expr != NULL)
- kind = c->ext.actual->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("umask_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
-
-/* Resolve the UNLINK intrinsic subroutine. */
-
-void
-gfc_resolve_unlink_sub (gfc_code *c)
-{
- const char *name;
- int kind;
-
- if (c->ext.actual->next->expr != NULL)
- kind = c->ext.actual->next->expr->ts.kind;
- else
- kind = gfc_default_integer_kind;
-
- name = gfc_get_string (PREFIX ("unlink_i%d_sub"), kind);
- c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
-}
generated by cgit v1.1 at 2025-05-21 15:57:21 +0000