1
2! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
3! CHECK: Label '0' is out of range
4! CHECK: Label '100000' is out of range
5! CHECK: Label '123456' is out of range
6! CHECK: Label '123456' was not found
7! CHECK: Label '1000' is not distinct
8
9subroutine sub00(a,b,n,m)
10  real a(n)
11  real :: b(m)
120 print *, "error"
13100000 print *, n
14  goto 123456
151000 print *, m
161000 print *, m+1
17end subroutine sub00
18