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 ... :(