Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
emptyif-1.f90
blob: bdce67db9eabc7e6c63561bf6b85c0944ae77387 [
file
] [
log
] [
blame
]
program emptyif
implicit
none
integer i
,
K
(
4
)
if
(
K
(
i
)==
0
)
then
!
do
absolutely nothing
end
if
end
program
