emptyif-1.f90 « compile « gfortran.fortran-torture « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/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