?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[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