1*96d229c9SAndrzej Warzynski! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 264ab3302SCarolineConcatto! CHECK: end do 364ab3302SCarolineConcatto 464ab3302SCarolineConcattoSUBROUTINE sub00(a,b,n,m) 564ab3302SCarolineConcatto INTEGER n,m 664ab3302SCarolineConcatto REAL a(n,m), b(n,m) 764ab3302SCarolineConcatto 864ab3302SCarolineConcatto DO 10 j = 1,m 964ab3302SCarolineConcatto DO 10 i = 1,n 1064ab3302SCarolineConcatto g = a(i,j) - b(i,j) 1164ab3302SCarolineConcatto10 PRINT *, g 1264ab3302SCarolineConcattoEND SUBROUTINE sub00 13