OSDN Git Service

(root) / pf3gnuchains / gcc-fork.git / blob
? search:


c1e2348646f7b2668413b0506c4df98646b23a19
[pf3gnuchains/gcc-fork.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
About OSDN
Find Software
Develop Software
Help