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