1
2! RUN: %f18 -funparse-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