您所在位置：主题：openmp并行跟踪调试，说“没有可用于当前位置的源代码”，怎么回事啊？
flosea
[专家分：0] 发布于 2011-11-27 14:23:00
SUBROUTINE SUB_add(ARRAY1)
INCLUDE "omp_lib.h" ! or USE OMP_LIB
REAL ARRAY1(10)
!$OMP PARALLEL do
do i=1,10
ARRAY1(i)= ARRAY1(i)+i
end do
!$OMP END PARALLEL do
END SUBROUTINE SUB_add
SUBROUTINE SUB_min(ARRAY1)
INCLUDE "omp_lib.h" ! or USE OMP_LIB
REAL ARRAY1(10)
!$OMP PARALLEL do
do i=1,10
ARRAY1(i)= ARRAY1(i)+10
end do
!$OMP END PARALLEL do
END SUBROUTINE SUB_min
PROGRAM A5
REAL ARRAY1(10)
ARRAY1=1.0
CALL SUB_add(ARRAY1)
CALL SUB_min(ARRAY1)
print*,ARRAY1
END PROGRAM A5
就这么简单的程序，在“CALL SUB_add(ARRAY1)，CALL SUB_min(ARRAY1)”两句前设置断点时，调试的时候就会出现“没有可用于当前位置的源代码”，请指教，怎么回事？因为我想逐行调试。
INCLUDE "omp_lib.h" ! or USE OMP_LIB
REAL ARRAY1(10)
!$OMP PARALLEL do
do i=1,10
ARRAY1(i)= ARRAY1(i)+i
end do
!$OMP END PARALLEL do
END SUBROUTINE SUB_add
SUBROUTINE SUB_min(ARRAY1)
INCLUDE "omp_lib.h" ! or USE OMP_LIB
REAL ARRAY1(10)
!$OMP PARALLEL do
do i=1,10
ARRAY1(i)= ARRAY1(i)+10
end do
!$OMP END PARALLEL do
END SUBROUTINE SUB_min
PROGRAM A5
REAL ARRAY1(10)
ARRAY1=1.0
CALL SUB_add(ARRAY1)
CALL SUB_min(ARRAY1)
print*,ARRAY1
END PROGRAM A5
就这么简单的程序，在“CALL SUB_add(ARRAY1)，CALL SUB_min(ARRAY1)”两句前设置断点时，调试的时候就会出现“没有可用于当前位置的源代码”，请指教，怎么回事？因为我想逐行调试。