Mercurial > hg > CbC > CbC_llvm
annotate flang/test/Semantics/canondo01.f90 @ 173:0572611fdcc8 llvm10 llvm12
reorgnization done
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Mon, 25 May 2020 11:55:54 +0900 |
| parents | |
| children | 2e18cbf3894f |
| rev | line source |
|---|---|
| 173 | 1 ! RUN: %S/test_any.sh %s %t %f18 |
| 2 ! negative test -- invalid labels, out of range | |
| 3 | |
| 4 ! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s | |
| 5 ! CHECK: end do | |
| 6 | |
| 7 SUBROUTINE sub00(a,b,n,m) | |
| 8 INTEGER n,m | |
| 9 REAL a(n,m), b(n,m) | |
| 10 | |
| 11 DO 10 j = 1,m | |
| 12 DO 10 i = 1,n | |
| 13 g = a(i,j) - b(i,j) | |
| 14 10 PRINT *, g | |
| 15 END SUBROUTINE sub00 |