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

there is a bug in debuge in ivf 2017

zeng_x_
Beginner
147 Views
program main

  implicit none
  integer ::  i
  integer ::  iary_index(6)
  real    ::  Rdata(20)

  !数据
  forall(i=1:20) Rdata(i)=i
  !print*,Rdata

  !下标
  forall(i=1:6) iary_index(i)=i*2+1
  !print*,iary_index

  print*,Rdata(iary_index)

end program Main

 

last one  error

print*,Rdata(iary_index)

 

0 Kudos
0 Replies
Reply