2018-08-21 07:47:18 +08:00
|
|
|
|
2020-06-27 02:28:43 +08:00
|
|
|
! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
|
2020-04-04 03:05:03 +08:00
|
|
|
! 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
|
2018-08-21 07:47:18 +08:00
|
|
|
|
|
|
|
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
|