Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Beginner
2 Views

there is a bug in debuge in ivf 2017

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