10 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s()3 real(8) :: a4 !ERROR: COMPLEX(KIND=128) is not a supported type5 complex(128) :: x6 a(i)=a + ((i)+1) + 3.147 !ERROR: 'a' has not been declared as an array or pointer-valued function8 a()=z(a * a + n-1 - x) + i((/0,0,0,0,0,0,0,0,0,0/)) + 89end10