summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/emptyif-1.f90
blob: bdce67db9eabc7e6c63561bf6b85c0944ae77387 (plain)
1
2
3
4
5
6
7
8
9
10
program emptyif

  implicit none
  integer i,K(4)

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

end program