读取地址错误

jason_bourne · 发表于 2024-5-15 23:13:32

本帖最后由 jason_bourne 于 2024-5-15 23:12 编辑

在debug中出现读取地址错，报错信息为：

Exception thrown at 0x00007FF6A3F2543B in Console1.exe: 0xC0000005: Access violation reading location 0x00007FF6A4586000

代码如下：

[Fortran] 纯文本查看 复制代码

01program Console1
02       
03      USE iso_Fortran_env, ONLY: wp => real64
04      implicit none
05       
06      external dgesv, dgetrf
07      integer, parameter :: nn=2, lda=2, nrhs=1, ldb=2
08      REAL(wp), dimension(lda,nn) :: A 
09      REAL(wp), dimension(ldb,nrhs) :: B
10      integer :: info, i, j
11      integer, dimension(nn) :: ipiv
12 
13      A(1,1)=1
14      A(1,2)=2
15      A(2,1)=3
16      A(2,2)=4
17      B(1,1)=5
18      B(2,1)=6
19      ipiv = 0
20      info = 0
21       
22      write(*,*), 'Hello World'
23      print *, 'ipiv =', ipiv
24      print *, 'INFO =', info
25      print *, ((A(i,j),i=1,lda),j=1,nn)
26      print *, ((B(i,j),i=1,ldb),j=1,nrhs)
27 
28      call dgesv(nn,nrhs,A,lda,ipiv,B,ldb,info)
29       
30      print *, "END OF PROGRAM..."
31 end program Console1