I'm getting the fllowing error when trying to compile my test code
catastrophic error: **Internal compiler error: segmentation violation signal raised** Please report this error along with the circumstances in which it occurred in a Software Problem Report. Note: File and line given may not be explicit cause of this error.
compilation aborted for text.f90 (code 1)
Curiously when I split the PDT declaration on my subroutine into two lines the code compiles and works perfectly.
Apologies if I missed something.
module global
TYPE matrix(real_kind, m, n)
INTEGER, KIND :: real_kind
integer, len :: m, n
REAL(real_kind), dimension(m,n) :: element
END TYPE matrix
end module
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
program ringleb_flow
integer :: q, w
read (*,*) q, w
call indat(q, w)
end program
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subroutine indat(q, w)
use global
integer :: i, j, q, w
type( matrix(kind(0.0), q, w) ) :: a, b
! type(matrix(kind(0.0), w, q)) :: b
print *, q, w
do concurrent (i=1:q, j=1:w)
a%element(i,j) = 100*i+j
b%element(j,i) = q*(j-1)+i
enddo
do i=1, q
print *, a%element(i,:)
enddo
print *
do i=1, w
print *, b%element(i,:)
enddo
end subroutine