https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91422
Bug ID: 91422
Summary: Illegal Fortran in
testsuite/libgomp.oacc-fortran/routine-7.f90
Product: gcc
Version: unknown
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: testsuite
Assignee: unassigned at gcc dot gnu.org
Reporter: tkoenig at gcc dot gnu.org
Target Milestone: ---
Hi,
I get
At line 116 of file routine-7.f90
Fortran runtime error: Index '9' of dimension 1 of array 'a' above upper bound
of 8
Error termination. Backtrace:
#0 0x40074d in seq
at /home/ig25/Krempel/Do5/routine-7.f90:116
#1 0x400921 in MAIN__
at /home/ig25/Krempel/Do5/routine-7.f90:20
#2 0x40142b in main
at /home/ig25/Krempel/Do5/routine-7.f90:65
The code in question is
subroutine seq (a)
!$acc routine seq
integer, intent (inout) :: a(M)
integer :: i
do i = 1, N
a(i) = a(i) + 1
end do
end subroutine seq
where N is 32 and M is 8.
(I'm currently working on a patch which caught this at compile time,
so this caused a "regression" there). I do not know what the code
is supposed to do, so I cannot really fix this.
