flang/test/Semantics/canondo03.f90

   1
   2 ! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   3 ! CHECK: 10 continue
   4 ! CHECK: end do
   5
   6 SUBROUTINE 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
  14 10 END DO
  15 END SUBROUTINE sub00