1
2! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
3! CHECK: Label '50' was not found
4! CHECK: Label '55' is not in scope
5! CHECK: Label '70' is not a branch target
6! CHECK: Control flow use of '70'
7
8subroutine sub00(a,b,n,m)
9  real a(n,m)
10  real b(n,m)
11  if (n .ne. m) then
12     goto 50
13  end if
146 n = m
15end subroutine sub00
16
17subroutine sub01(a,b,n,m)
18  real a(n,m)
19  real b(n,m)
20  if (n .ne. m) then
21     goto 55
22  else
2355   continue
24  end if
2560 n = m
26end subroutine sub01
27
28subroutine sub02(a,b,n,m)
29  real a(n,m)
30  real b(n,m)
31  if (n .ne. m) then
32     goto 70
33  else
34     return
35  end if
3670 FORMAT (1x,i6)
37end subroutine sub02
38