flang/test/Semantics/canondo02.f90

   1
   2 ! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   3 ! CHECK: end do
   4
   5 SUBROUTINE 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)
  12 10   PRINT *, g
  13 END SUBROUTINE sub00