16 lines · plain
1 2! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s3! CHECK: 10 continue4! CHECK: end do5 6SUBROUTINE sub00(a,b,n,m)7 INTEGER n,m8 REAL a(n,m), b(n,m)9 10 i = n-111 DO 10 j = 1,m12 g = a(i,j) - b(i,j)13 PRINT *, g1410 END DO15END SUBROUTINE sub0016