emptyif-1.f90 « compile « gfortran.fortran-torture « 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.fortran-torture/compile/emptyif-1.f90

blob: bdce67db9eabc7e6c63561bf6b85c0944ae77387 (plain)

program emptyif

  implicit none
  integer i,K(4)

  if (K(i)==0) then
    ! do absolutely nothing
  end if

end program