codekingpro/portable-devtools

1      SUBROUTINE GREET(NAME, GREETING)
2      CHARACTER NAME*(*), GREETING*(*)
3      CHARACTER*(50) MESSAGE
4
5      MESSAGE = 'Hello, ' // NAME // ', ' // GREETING
6c$$$      PRINT *, MESSAGE
7
8      END SUBROUTINE GREET
9