Fortran Fortune Teller

    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