Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

unable to assign value correctly

Zuodong_Y_
초보자
1,439 조회수

Here is the code to reproduce the problem

program main
	implicit none
	integer :: to(1:2),from(1,2),i
	from(1,:)=[1,2]
	i=1
	to(i:2)=mod((from(1,1:2)),4)
	write(*,*)"from:",from
	write(*,*)"to:",to
end program

compiled with Intel(R) Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 17.0.4.196 Build 20170411

the variable "to" should be equal to "from" but it doesn't. Seems only the first element of "to" is assigned.

0 포인트
1 솔루션
Ron_Green
중재자
1,411 조회수

This bug is fixed in PSXE 2020 Update2.


원본 게시물의 솔루션 보기

0 포인트
4 응답
andrew_4619
명예로운 기여자 III
1,439 조회수
MOD would create an array with the same rank and shape as its arg. 
I made a test using and intermediate array (maybe the compiler creates a temp ) 
but that code (shown below) works.  I suspect either your code is 
nonconforming (but no error is given) or there is a compiler bug. 
Not sure which.


        implicit none
        integer :: to(1:2), from(1,2), i, to2(1,2)
        from(1,:)=[1,2]
        i=1
        to2(i,1:2) = mod(from(1,1:2),4)
        to(i:2) = to2(i,1:2)

 

0 포인트
Steve_Lionel
명예로운 기여자 III
1,439 조회수

Interesting. The key is the use of i in to(i:2). If that is replaced by to(1:2), it works. This is a compiler bug, still broken in 19.1. Please report it to Intel using the Online Service Center.

0 포인트
Ron_Green
중재자
1,439 조회수

I opened a bug report.  ID is CMPLRIL0-32400

 

0 포인트
Ron_Green
중재자
1,412 조회수

This bug is fixed in PSXE 2020 Update2.


0 포인트
응답