Nope, not trying to get muted. I just played along with your jab at Fortran.

Seems like you take things literally, so let me do the same.

> why the fuck are you coping with that old crap

Because it works, is faster than many other codes, and it is just not worth it to rewrite legacy code.

no offense intended, are you trying to get muted?

---

riffing off "a rose by any other name" seemed nicer than "why the fuck are you coping with that old crap"

adlai

program weather_report
  implicit none


  character(len=*), parameter :: msg = "날씨가 좋아요."

  call say_weather(msg)

contains

  subroutine say_weather(text)
    implicit none
    character(len=*), intent(in) :: text
    write(*,'(A)') trim(text)
  end subroutine say_weather

end program weather_report

PROGRAM WEATHER_REPORT

      CHARACTER*40 MSG
      INTEGER I

      MSG = '날씨가 좋아요.'

      I = 1
 10   IF (I .GT. 1) GOTO 20
      CALL SAYWEATHER(MSG)
      I = I + 1
      GOTO 10

 20   STOP
      END


      SUBROUTINE SAYWEATHER(TEXT)
      CHARACTER*40 TEXT

 30   PRINT *, TEXT
      GOTO 40

 40   RETURN
      END

SN release: what you see is what you get (wysiwyg) editor

k00b

```
program weather_report
  implicit none


  character(len=*), parameter :: msg = "날씨가 좋아요."

  call say_weather(msg)

contains

  subroutine say_weather(text)
    implicit none
    character(len=*), intent(in) :: text
    write(*,'(A)') trim(text)
  end subroutine say_weather

end program weather_report
```

Edit: I used to use this syntax, though:

```
PROGRAM WEATHER_REPORT

      CHARACTER*40 MSG
      INTEGER I

      MSG = '날씨가 좋아요.'

      I = 1
 10   IF (I .GT. 1) GOTO 20
      CALL SAYWEATHER(MSG)
      I = I + 1
      GOTO 10

 20   STOP
      END


      SUBROUTINE SAYWEATHER(TEXT)
      CHARACTER*40 TEXT

 30   PRINT *, TEXT
      GOTO 40

 40   RETURN
      END
```