?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
FSF GCC merge 02/23/03
[official-gcc.git] / gcc / testsuite / g77.f-torture / noncompile / 970626-2.f
blobc1e2348646f7b2668413b0506c4df98646b23a19
1 SUBROUTINE A(A,ALPHA,IA)
2 COMPLEX A(IA,*), ALPHA(*)
3 ALPHA(I)=A(I,I).ZERO)
4 END
Mirror of the offical gcc git repository hosted at gcc.gnu.org