emptyif.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 43 行

! Program to test empty IF statements
program emptyif
   implicit none
   logical c
   logical d

   if (c) then
      c = .true.
   end if
   
   if (c) then
   else
      c = .true.
   end if

   if (c) then
      c = .true.
   else
   end if

   if (c) then
      c = .true.
   elseif (d) then
      c = .true.
   else
   end if

   if (c) then
      c = .true.
   elseif (d) then
   else
      c = .true.
   end if

   if (c) then
   elseif (d) then
      c = .true.
   else
      c = .true.
   end if

end program