You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
242 B
14 lines
242 B
4 months ago
|
|
||
|
|
! RUN: %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
|
||
|
|
! CHECK: end do
|
||
|
|
|
||
|
|
SUBROUTINE sub00(a,b,n,m)
|
||
|
|
INTEGER n,m
|
||
|
|
REAL a(n,m), b(n,m)
|
||
|
|
|
||
|
|
DO 10 j = 1,m
|
||
|
|
DO 10 i = 1,n
|
||
|
|
g = a(i,j) - b(i,j)
|
||
|
|
10 PRINT *, g
|
||
|
|
END SUBROUTINE sub00
|