forked from OSchip/llvm-project
19 lines
463 B
Fortran
19 lines
463 B
Fortran
|
! negative test -- invalid labels, out of range
|
||
|
|
|
||
|
|
! RUN: ${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
|