Compiler: ifort
Options: -O3
Hi all, I get this error:
/opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o): in function `for__process_start_time':
for_init.c:(.text+0xc): relocation truncated to fit: R_X86_64_PC32 against `for_process_start_time'
/opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o): in function `handle_flt_und':
for_init.c:(.text+0x3d): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_fpe_mask' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
for_init.c:(.text+0x344): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_undcnt' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
for_init.c:(.text+0x396): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_undcnt' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
for_init.c:(.text+0x39e): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_undcnt' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
for_init.c:(.text+0x3aa): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_excpt_info' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
for_init.c:(.text+0x3cb): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_excpt_info' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
for_init.c:(.text+0x41e): relocation truncated to fit: R_X86_64_PC32 against symbol `for__l_undcnt' defined in .bss section in /opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o)
/opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libifcoremt.a(for_init.o): in function `for__signal_handler':
for_init.c:(.text+0x91a): relocation truncated to fit: R_X86_64_PC32 against `.bss'
for_init.c:(.text+0x944): relocation truncated to fit: R_X86_64_PC32 against `.bss'
for_init.c:(.text+0x961): additional relocation overflows omitted from the output
/opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libirc.a(tbk_backtrace.o): in function `tbk_signal_handler':
tbk_backtrace.c:(.text+0x49d): failed to convert GOTPCREL relocation against 'tbk__jmp_env'; relink with --no-relax
/opt/intel/oneapi/compiler/2022.0.2/linux/compiler/lib/intel64_lin/libirc.a(tbk_backtrace.o): in function `tbk_trace_stack_impl':
tbk_backtrace.c:(.text+0x190c): failed to convert GOTPCREL relocation against 'tbk__jmp_env'; relink with --no-relax
tbk_backtrace.c:(.text+0x1a5b): failed to convert GOTPCREL relocation against 'tbk__jmp_env'; relink with --no-relax
This is my code:
program int_64_check
use iso_fortran_env
implicit none
type data
real :: phi,x,y,area,h
end type data
type(data) :: maximum
real :: check
integer(kind=int64) :: i,j,k,n
integer(kind=int64),parameter :: total=1300*2500*18000
type(data) :: arr(total)
real,parameter :: pi=3.14159
real,parameter,dimension(1:2500) :: mi=[(i*0.01,i=1,2500)]
real,parameter,dimension(1:18000) :: mk=[(i*(pi/180.)*0.01,i=1,18000)]
n=1
do concurrent(i=1:1300,j=1:2500,k=1:18000)
arr(n)%x=mi(i)
arr(n)%y=mi(j)
arr(n)%phi=mk(k)
n=n+1
end do
call calculate(arr%x,arr%y,arr%phi,arr%h,arr%area)
maximum%area=0.
contains
elemental subroutine calculate(x,y,phi,h,area)
real,intent(in) :: x,y,phi
real,intent(out) :: h,area
real :: b1,b2
h=sin(phi)*x
b1=(2*(cos(phi))+x)+y
b2=y
area=(1./2.)*h*(b1+b2)
end subroutine calculate
end program int_64_check