https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86417
--- Comment #1 from janus at gcc dot gnu.org ---
Reduced test case:
module m
type dt
integer, allocatable :: h(:)
end type
end module m
use m
call foo (4)
contains
subroutine foo (n)
integer :: n
type (dt) :: x(2:n)
if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) STOP 11
end subroutine
end
type (dt) :: x(2:n)
1
Warning: No location in expression near (1)
I have no idea what this error message is trying to tell me ... :(
