! RUN: %S/test_any.sh %s %flang %t
! negative test -- invalid labels, out of range
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK: label '0' is out of range
! CHECK: label '100000' is out of range
! CHECK: label '123456' is out of range
! CHECK: label '123456' was not found
! CHECK: label '1000' is not distinct
subroutine sub00(a,b,n,m)
real a(n)
real :: b(m)
0 print *, "error"
100000 print *, n
goto 123456
1000 print *, m
1000 print *, m+1
end subroutine sub00