n番目のコマンドライン引数を求められます。 PROGRAM test IMPLICIT NONE INTEGER :: n, length CHARACTER(LEN = 120) :: text n = 0 CALL GET_COMMAND_ARGUMENT(n, text, length) PRINT *, n PRINT '(a)', text(1:length) STOP END PROGRAM test コマンドラ…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。