https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105182
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC|kargl at gcc dot gnu.org |
--- Comment #11 from kargl at gcc dot gnu.org ---
Remove myself from CC list. I do not have 11.x source tree. Minimum example
that should have been supplied by someone else.
module errorm
implicit none
integer :: ngn, nis, isrr, nscr4
real, dimension(:), allocatable::egn
contains
subroutine resprx(nwscr,a)
integer :: nwscr
real :: a(nwscr)
integer :: iest, ieed
integer, parameter :: mxlru2=10
real::amur(3,mxlru2)
do isrr=1, nis
call rpxunr(a,amur,mxlru2,iest,ieed,nwscr)
enddo
end subroutine resprx
subroutine rpxunr(a,amur,mxlru2,iest,ieed,nwscr)
integer::mxlru2,iest,ieed,nwscr
real::a(nwscr),amur(3,mxlru2)
integer::ii
integer,parameter::maxe=60
real::sig(maxe,5)
real::gsigr(4,25)
ngn = 10
allocate(egn(ngn))
call rpxgrp(ngn,egn,sig,ii,gsigr,a,nwscr)
end subroutine rpxunr
subroutine covout
integer:: nwds
real,dimension(:),allocatable::scr
nwds = 10
allocate(scr(nwds))
call resprx(nwds,scr)
end subroutine covout
subroutine rpxgrp(igx, egn, sig, ipoint, gsig, a, nwscr)
integer :: igx, ipoint, nwscr
integer, parameter:: maxe=60
real :: egn(*), sig(maxe,5), gsig(4,25), a(nwscr)
end subroutine rpxgrp
end module errorm
