18 lines · plain
1 2! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s3! CHECK: Label '0' is out of range4! CHECK: Label '100000' is out of range5! CHECK: Label '123456' is out of range6! CHECK: Label '123456' was not found7! CHECK: Label '1000' is not distinct8 9subroutine sub00(a,b,n,m)10 real a(n)11 real :: b(m)120 print *, "error"13100000 print *, n14 goto 123456151000 print *, m161000 print *, m+117end subroutine sub0018