1! RUN: %python %S/test_errors.py %s %flang_fc1 2subroutine s() 3 real(8) :: a 4 !ERROR: COMPLEX(KIND=128) is not a supported type 5 complex(128) :: x 6 a(i)=a + ((i)+1) + 3.14 7 !ERROR: 'a' has not been declared as an array or pointer-valued function 8 a()=z(a * a + n-1 - x) + i((/0,0,0,0,0,0,0,0,0,0/)) + 8 9end 10