ご自由にお使いください。
Fortran Fortune Teller
あなたの運勢を Lucky GO TO 文で占います。
program Fortune
implicit none
real :: x
integer :: m
call random_seed()
call random_number(x)
m = 4 * x
select case (m)
case (0)
print *, 'あなたのラッキー GO TO 文は「単純 GO TO 文」です。'
print *, '世間の常識にとらわれない自由なあなたは、どこへでも好きなところへ行きましょう。'
print *, 'FORTRAN66 なら DO LOOP の中へも飛び込めます！（拡張 DO LOOP）'
case (1)
print *, 'あなたのラッキー GO TO 文は「計算型 GO TO 文」です。'
print *, 'Fortran95 規格で、禁止予定文法となりました。'
print *, '合法である今のうちにどんどん使いましょう。'
case (2)
print *, 'あなたのラッキー GO TO 文は「割り当て型 GO TO 文」です。'
print *, 'Fortran95 規格で、禁止文法となりました。'
print *, 'GO TO 文は無害だと信じるあなたは、脱法 GO TO 文を思う存分満喫してください。'
print *, 'C '
print *, ' ASSIGN 420 to LABEL'
print *, ' GO TO LABEL '
print *, ' 420 CONTINUE '
case (3)
print *, 'あなたのラッキー GO TO 文は「選択戻り RETURN 文」です。'
print *, 'Fortran90 規格で、禁止予定文法となりました。'
print *, 'サブルーチンから戻る時 CALL された位置には戻ったりしない。'
print *, 'あなたはさすらいの旅人、故郷を捨てた放浪者。'
case default
print *, 'アブノーマル・エンド'
end select
stop
end program Fortune