Searched refs:get_message (Results 1 – 1 of 1) sorted by relevance
636 character(40) get_message local637 external get_message640 print *, get_message(gen_message)649 character(40) :: get_message local651 get_message = "message is: " // a()