-5
program democonstanta
implicit none
c constanta
integer, parameter :: MIN_VALUE = 0
integer, parameter :: MAX_VALUE = 100
c var declaration
integer :: i = MIN_VALUE
do while (i <=MAX_VALUE)
write(*,'(a14)') "Please wait... "
write(*,'(i3,a2)', advance='no') i, "%"
call sleep(1)
if (i .it. MAX_VALUE) then
call execute_command_line("clear")
end if
i = i + 1
end do
call execute_command_line("clear")
write(*,'(a3)') "End."
end program democonstanta
引数 '1'で' sleep'という名前のサブルーチンを呼び出すためのものです。 'execute_command_line'と比較して、' sleep 'にはエキゾチックなものはありません。一部のコンパイラでは、それを組み込み関数として提供する場合と、そうでない場合があります。つまり、あなたが何を求めているのかはわかりません。 – francescalus
ありがとうございました! –