19990502-1.f « g77 « gfortran.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/g77/19990502-1.f

blob: dde2769f40a6a14cbf3cdb3198a11b9f057622e7 (plain)

c { dg-do compile }
      SUBROUTINE G(IGAMS,IWRK,NADC,NCellsInY)
      INTEGER(kind=2) IGAMS(2,NADC)
      in = 1
      do while (in.le.nadc.and.IGAMS(2,in).le.in)
      enddo
      END