13 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK: end do3 4SUBROUTINE sub00(a,b,n,m)5 INTEGER n,m6 REAL a(n,m), b(n,m)7 8 DO 10 j = 1,m9 DO 10 i = 1,n10 g = a(i,j) - b(i,j)1110 PRINT *, g12END SUBROUTINE sub0013