]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/g77.f-torture/noncompile/970626-2.f
projects / thirdparty / gcc.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
PR c++/17413
[thirdparty/gcc.git] / gcc / testsuite / g77.f-torture / noncompile / 970626-2.f
1 SUBROUTINE A(A,ALPHA,IA)
2 COMPLEX A(IA,*), ALPHA(*)
3 ALPHA(I)=A(I,I).ZERO)
4 END
Mirror of https://gcc.gnu.org/git/gcc.git