3 ! Tests the fix for PR77358, in which the wrong gfc_charlen was
4 ! being used for the result of 'get'.
6 ! Contributed by Damian Rouson <damian@sourceryinstitute.org>
9 character(len=13) :: string="Hello, world!"
11 module function get() result(result_string)
12 character(:), allocatable :: result_string
17 submodule(hello_interface) hello_implementation
19 module function get() result(result_string)
20 character(:), allocatable :: result_string
21 result_string = string
26 if (get() .ne. string) STOP 1