1! RUN: %python %S/test_errors.py %s %flang_fc1 2SUBROUTINE sub00(a,b,n,m) 3 complex(2) n,m 4! ERROR: Must have INTEGER type, but is COMPLEX(2) 5! ERROR: Must have INTEGER type, but is COMPLEX(2) 6! ERROR: The type of 'b' has already been implicitly declared 7 complex(3) a(n,m), b(size((LOG ((x * (a) - a + b / a - a))+1 - x))) 8 a = a ** n 9! ERROR: DO controls should be INTEGER 10 DO 10 j = 1,m 11 a = n ** a 12 10 PRINT *, g 13END SUBROUTINE sub00 14