164ab3302SCarolineConcatto 2*96d229c9SAndrzej Warzynski! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 3455ed8deSpeter klausler! CHECK: Label '0' is out of range 4455ed8deSpeter klausler! CHECK: Label '100000' is out of range 5455ed8deSpeter klausler! CHECK: Label '123456' is out of range 6455ed8deSpeter klausler! CHECK: Label '123456' was not found 7455ed8deSpeter klausler! CHECK: Label '1000' is not distinct 864ab3302SCarolineConcatto 964ab3302SCarolineConcattosubroutine sub00(a,b,n,m) 1064ab3302SCarolineConcatto real a(n) 1164ab3302SCarolineConcatto real :: b(m) 1264ab3302SCarolineConcatto0 print *, "error" 1364ab3302SCarolineConcatto100000 print *, n 1464ab3302SCarolineConcatto goto 123456 1564ab3302SCarolineConcatto1000 print *, m 1664ab3302SCarolineConcatto1000 print *, m+1 1764ab3302SCarolineConcattoend subroutine sub00 18