1
2! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
3! CHECK: 10 continue
4! CHECK: end do
5
6SUBROUTINE sub00(a,b,n,m)
7  INTEGER n,m
8  REAL a(n,m), b(n,m)
9
10  i = n-1
11  DO 10 j = 1,m
12     g = a(i,j) - b(i,j)
13     PRINT *, g
1410 END DO
15END SUBROUTINE sub00
16