14 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12SUBROUTINE sub00(a,b,n,m)3 complex(2) n,m4! 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 declared7 complex(3) a(n,m), b(size((LOG ((x * (a) - a + b / a - a))+1 - x)))8 a = a ** n9! ERROR: DO controls should be INTEGER10 DO 10 j = 1,m11 a = n ** a12 10 PRINT *, g13END SUBROUTINE sub0014