Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function string_concat(s1, s2) ! This is a comment
- TYPE (string), INTENT(IN) :: s1, s2
- TYPE (string) string_concat
- string_concat%string_data = s1%string_data(1:s1%length) // &
- s2%string_data(1:s2%length) ! This is a continuation
- string_concat%length = s1%length + s2%length
- end fuction string_concat
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement