970626-2.f\noncompile\g77.f-torture\testsuite\gcc - delta/gcc.git - gcc.gnu.org: git/gcc.git

index : delta/gcc.git

gcc.gnu.org: git/gcc.git

summary refs log tree commit diff

path: root/gcc/testsuite/g77.f-torture/noncompile/970626-2.f

blob: c1e2348646f7b2668413b0506c4df98646b23a19 (plain)

      SUBROUTINE A(A,ALPHA,IA)
      COMPLEX  A(IA,*), ALPHA(*)
      ALPHA(I)=A(I,I).ZERO)
      END